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SEQ 0001 



IDENTIFICATION 



PRODUCT CODE: 
PRODUCT NAME. 
DATE CREATED: 
MAINTAINED: 



AC-F759B-MC 

CVDRD80 DRV11J DIAG TST PRT2 

17-FEB-82 

DIAGNOSTIC ENGINEERING 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHAMGL- WKHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIG/T/L EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 

THE SOFTWARE DESCRIBFD IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON * SINGLE COMPUTER SYSTFM AND CAN BE C0PI5D 
(WITH INCLUSION OF DIGITALS COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY .OR THf. USE 
UK RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED bf 
DIGITAL, 

COPYRIGHT (C) 1979, 1982 DIGITAL EQUIPMENT CORPORATION 
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SEQ 0002 
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1.0 ABSTRACT 

THE DRV11-J IS A GENERAL PURPOSE PARALLEL INTERFACE FOR THE 
LSI-11 BUS, IT HAS A BASIC CONFIGURATION OF 64 TRI-STATE IN/OUT 
LINES DIVIDED INTO FOUR GROUPS OF 16 BIT WORDS. 

THERE ARE TWO 4K DIAGNOSTICS FOR THE DRV11-J OPTION. 

THE DRV11-J DIAGNOSTIC TEST PART i Of 2 CONTAINS A 

SERIES OF TESTS WITHOUT DRV 1 1 J INTERRUPTS DESIGNED TO TEST ALL 

LOGIC FUNCTIONS AND DATA PATHS MADE ACCESSIBLE WITH THE L00P8ACK 

CA8LE INSERTED INTO THE DRV11-J I/O CCNNECTORS. 

THE DRV11-J DIAGNOSTIC PART 2 OF 2 IS A SERIES OF TESTS 

WITH DRV11J INTERRUPTS DESIGNED TO TEST ALL LOGIC AND DA T A PATHS 

MADE ACCESSIBLE WITH THE LOOPBACK CABLE INSERTED INTO THE I/O 

CONNECTORS. 

THE DRV11-J IS CONTAINED ON A DOUBLE H5IGHT MODULE, 

THE MODULE CONTAINS TWO 50 PIN CONNECTORS FUR INTERFACING 

TO EXTERNAL USER DEVICES. 

FOR DIAGNOSTIC TFS'llNG.THE DRV11-J CABLE (8C05W-02) MUSI 
BE INSTALLED WITH 1/2 TWIST BETWEEN THE 50 PIN CONNECTORS. 

* NOTE: THIS DIAGNOSTIC HAS BEEN MODJFJCD TO RUN IN KXT11 (SBC 11/21) * 

* BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY AOJUST ITSELF TO RUN * 

* IN XHh APPROPRIATE ENVIRONMENT AS FOLLOWS; * 

* * 

* LSI-11. 11/2. AND 11/23 SBC 11/21 * 

* . — * 

* CSR RANGE: 160010 TO ) 77760 174000 TO 1 7 7760 * 
■* PROGRAMMABLE... * 

* ...VECTOR RANGE: 0000 TO 1774 000 TO 374 * 

* ; ; CPA * 

**************************** *********** ********************************* 

2.0 REQUIREMENTS 



2.1 EQUIPMENT 



1. PDPI1/03, 11/23 COMPUTER OR LSI-11 PROCESSOR 
WITH A MINIMUM OF 4K MEMORY. 

2. ATRIAL LINE INTERFACE AND CONSOLE TERMINAL 
5. DRV17-J OPTION WITH A BCQ5W-02 CABLE 



2.2 STORAGE 



THE PROGRAM USFS THE LOWER 4K OF MFMORY. 
3.0 LOADING PROCEDURE 



SEQ 0003 



USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE 



BINARY FORMATTED PAPERTAPES OR £<DP M:.DIA 
(FILES WITH .BK OR .BIN EXTENSIONS ONLY). 



e i 



SEQ 0004 



4.0 



STARTING PROCEDURE 



5.0 
5.1 



MAKE SURE THE DRW -J CABLE IS INSERTED WITH 1/2 A 
ON THE I/O CONNECTORS OK THE DRVH-J OPTION. 
THIS WILL CONNECT POM A TO PORT C AM) CONNECT 
PORT B TO PORT D. 



'WIST 



2. MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH W£ DEFAULT 
VALUES DEFINED IN SECTION 7.1. IF NOT, CHANGE 
LOCATIONS; AS DESIRED VIA THE # ADDRESS/' ODT COMMAND, 

3. THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. STARTING 
AT 200(2006 OR ,R CVDRDB UNDER XXDP+),THE PROGRAM 
INITIALIZES ITSELF , PRINTS ITS IDCFIRST TIME ONLY) AND 
THEN PRINTS THAT THE DRVVI-J CABLE IS REQUIRED(FIRST TIME 
ONLY) AND THEN PRINTS: SWR=XXXXXX NEW= 

WHERE XXXXXX REPRESENTS THE CURRENT VALUE OF THE SOFTWARE 

SWITCH REGISTER, it NO CHANGES ARE REQUIRED IN THE SWITCH 

REGISTER THEN JUST HIT CARRIAGE RETURN. 

U CHANGES ARE REQUIRED, THEN A NEW VALUE MAY BE TYPED 

FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SEC! ION 5.0 FOR SWITCH REGISTER OPTIONS, 

SOFTWARE SWITCH REGISTER 



OPTIONS 



THE PROGRAM SWITCH DEFAULT MODE IS 
IF USING A VIDEO TERMINAL ,BIT 15 = 
MAY BE HELPFUL IN KEEPING THE ERROR 



SWR = 000000 
KHAL7 ON ERROR), 
ON THE SCREEN. 



SWITCH 

SW15-1 
SWH-1 
SW13^1 
SW1?-"I 

SU11=1 
SW09-1 
SW08-1 



OCTAL 

100000 
040000 
020000 
010000 

004000 
001000 
0004XX 



FUNCTION 

HALT ON ERROK 

LOOP ON TEST 

INHIBIT ERROR TYPEOUTS 

INHIBIT I* LEGAL VECTOR 

RETURN ROUTINfc'S 

INHIBIT ITERATIONS 

LOOP ON ERROR 

LOOP ON TEST IN SWR <7-0> 



* SW1P EXPLANATION 



SW12 = 1 WILL STORE THE REGULAR TRAP (PC+2,HALT> 
IN LOCATIONS :%-}77<* FOR THE VECTOR TESTING. ON 
ILLEGAL VECTOK ERRORS, THIS WILL Ain Wic USER TO 
DETERMINE Tf.E LOCATION OP THE ILLEGAL VECTOR. 
THE LOOPING fAPAEILiMES THAT A.^E NORMALLY PROVIDED 
BY ILLEGAL VECTOR SERVICE ROUTINES WHEN SW12=0 WILL 
NO LONGER BE AVAILABLE WHEN SW12 = 1. 



F 1 
IF USING SW12=1 TO TRACK DOWN THE ILLEGAL VECTOR, THE 

USER SHOULD RESTART AT ADDRESS 200 WITH SW1 2=0 TO SOQ 0005 

OBTAIN LOOPING CAPABILITIES AFTER ERROR OCCURS. 
VECTOR AREA 0-200 WILL ALWAYS HAVE ILLEGAL VECTOR ROUTINES 
WHEN VECTOR TESTING (0-200) IN ORDER TO PRESERVE PROGRAM. 



G 1 
b.d CONTROL SEQ 0006 

* WARNING: 

PHASE USE "CTRL AND 6" KEYS AND WAIT FOR THE 

"CTRL G M TO BE ECHOED BEFORE ATTEMPTING TO HALT THE 

CPU OR TO STOP TESTING OR THE PROGRAM MAY .WOT BE 

RESTARTABLE. 

PROGRAM RELOCATION FOR LOCATIONS 0-20C TAKES PLACE 

DURING THE VECTOR TESTING OF 0-200. THE NORMAL 

CONTENTS OF 0-200 MAY NOT GET RESTORED IF THE CPU 

IS HALTED AND RELOAD OF THE PROGRAM MAY BE NECESSARY, 

1. THE SOFTWARE SWITCH REGISTER 'SWREG' (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 

2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE 'CONTROL & G g KEYS* THIS 
KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 
WITH A CARRIAGE RETURN. 

3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 
ERROR CONDITION WITH BJT15 SET (HALT ON ERROR), STEP *2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP *1 TO ALTER THE 
SOFTWARE SWITCH REGISTER If DESIRED BEFORE TYPING 

*P I (CONTINUE), 

6.0 ERROR REPORTING 



6 .1 ERROR COMMENT 

ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE Or FAILURE. FURTHER QUALIFICATION Of 
THE ERROR CAN BE 08 AINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF, 

6.2 ERROR DATA 

o.2.1 FRROR TITLE TYPF A 

1. REG READ/WRITE ER 

2. iRR RFG FR 

3. ACR REG ER 

4. IMR RFG FR 

5. iSR REG ER 



6. CHIP STAT ER 

?. MULTIPLE INTERRUPTS RECEIVED 

8. INTERRUPT TEST ERROR 

ERRPC TSTNUM BU5ADR VAM ADDR EXPCT RCVD 
XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 



H 1 



SEQ 000/ 



ERRPC 
TSTNUM 
BUSADR 
VAM 

ADDR 

EXPCT 

RCVD 



LISTING ADDRCSS WHERE THE ERROR WAS DETECTED 

TEST NUMBER WHERE THE ERROR OCCURRED 

DRV11J BUS REG ADDRESS OF CONCERNED OPERATION 

VALUE STORED INTO VECTOR ADDRESS MEMORY 

INDICATING BYTE COUNT AND LEVEL* 

VECTOR ADDRESS 

DATA THAT WAS EXACTED 

DATA THAT WAS RECEIVED 



6.2.2 ERROR TITLE TYPE B 

1. ILLEGAL INTERRUPT RECEIVED 

ERRPC TSTNUM BUSADR VAM ADDR 
XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 

ERRPC ADDRESS WHERE THE ERROR WAS DETECTED 
TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 
BUSADR DRV11J BUS ADDRESS 
VAM VALUE OF VECTOR ADDRESS MEMORY 

AT TTME OF ILLEGAL INTERRUPT. 
ADDR VECTOR ADDRESS 

A.2.3 ERROR TITIE TYPE C 

1. ILLEGAL VECTOR MEM ADDR ER 

ERRPC TSTNUM TESTPC BUSADR VAM ADDR 
XXXXXX XXXXXX V XXXXX XXXXXX XXXXXX XXXXXX 



ERRPC 

TSTNUM 

TESTPC 

BUSADR 
VAM 

ADDR 

*.<?.* ERROR TYPE D 



ADDRESS WHERE £RROR WAS DETECTED 

TEST NUMBER WHERE THE ERROR OCCURED 

ADDRESS OF TESl THAT WAS RUNNING 

WHEN DHV11J VtCIOKED 10 \Ht WRONG ADDRESS. 

BUS ADDRESS OF Lu.VCERNLP OPERATION 

VALUE OF VECTOR ADDRESS MEMORY 

BYTE COUNT AND LFVEL. 

CORRECT VECTOR ADDRESS 



THIS ERROR IS ONLY FOUND WHEN RUNNING THE SECTOR ADDRESS 
UNIQUENESS JESTS. THE VECTOR MEMORY IS PRESET TO PERFORM 
64 INTERRUPTS. INTERRUPT SERVICE ROUTINES ARE STORED FROM 
VECTORS 510 TO 674. THE ROUTINES WILL STORE THE VALUE OF 
THE VECTOR ADDRESS UHErtE THEY CAME PROM IN A BUFFER 
TO COMPARE AHER ALL INTERRUPTS TAKE PLACE. IHfc BUm K 
SHOULD THEN HAVE ADDRESS VALUES IN CONSECUTIVE 
ORDER STARTING WITH VECTOR VALUE 300 AND ENDING WITH 
VECTOR VALUE 674. 



7,0 
7,1 

7,2 
7.3 



7.4 



7.5 



8.0 



1. VECT ADDR MEM ER 

ERRPC TSTNUM BUSADR EXPCT RCVD 
XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 
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SEQ 0008 



ERRPC 

TSTNUM 

BUSADR 

EXPCT 

RCVD 

MISCELLANEOUS 



ADDRESS WHERE ERROR WAS DETECTED 

TEST NUMBER WHERE ERROR OCCURRED 

STARTUP BUS kDDRESS BEFORE VECTOR UNIQUENESS 

THIS IS THE EXPECTED VECTOR ADDRESS 

VECTOR ADDRESS VALUE STORED IN BUFFER 



DRV11-J BUS ADDRESS MODIFICATION 

MODIFY LOCATION 'IBASE' (ADDR: 2244) IF BASE Bltf ADDRESS IS 
NOT 164160. 

XXDP/APT NOTES 

THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS. 

POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 

MULTIPLE DRV11J INTERFACE TESTING 

THIS PROGRAM DOES NOT "AUTO-SIZE" THE NUM8ER OF DRVIU'S CONNECTED 

THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 4 DRV11J INTERFACES 

W'TH CONTIGUOUS BUS ADDRESSES. THIS IS ACCOMPLISHED 

BY THE USER SETTING UP LOCATION 'SOEVM" (ADDR;?246) WITH A 

BIT MAP INDICATING WHAT INTERFACES ARE 1 BE VfcSTED. 

I.E. BITO= 1 SAYS TEST 1ST DRV11J, 

BIT1= 1 SAYS TEST 1ST DRV11J 

BIT2= 1 SAYS TEST 2ND DRV11J 

BIT3= 1 SAYS TEST 3RD DRV11J 



1ST UNIT 
2ND UNIT 
3&D UNIT 
4TH UNIT 



STARTING CSRA 
STARTING CSRA 
STARTING CSRA 
STARTING CSRA 



164160 
16*140 
164120 
164100 



$DLVM 
SDEVM 
SDEVM 
$DEVM 



1 
3 
7 
17 



RESTRICTIONS 

ALWAYS TYPE "CTRL G" AND WAIT FOR ECHO CHARACTERS 
BEFORE HALTING THE CPU OTHERWISE PORTIONS 0* THE 
PROGRAM MAY NOT GET RESTORED. FC^ MORE INFt.-.ATION 
REFER TO SECTION 5.2. 

EXECUTION TIME 



EXECUTION TIMF WILL BE LES" THAN 30 SECONDS 
PER DRV1U UNIT CONNECTED AN "END PASS" 
MESSAGE INDICATES ALL 1ESTS HAVE COMPLETED ON 
ALL SELECTED UNITS. 
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9.0 PROGRAM TEST DESCRIPTIONS 5EQ 0009 

GENERAL 

THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 

TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRV11J OPTION. 

TESTING IS ACCOMPLISHED WITH THE AID OF THE 

DRV11J LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 

A COMPLETE LTST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 

AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 

EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 

REFERENCES ARE MADE IN THE LISTING TO THE TWO INTERRUPT 
CONTROL CHIPS USED ON THE DRV11J AS GR0UP1 AND GR0UP2. 

GR0UP1 CHIP CSRA = CONTROL FOR GROUP 1 

CSRB = DATA FOR GR0UP1 
GR0UP2 CHIP CSRC = CONTROL FOR GR0UP2 

CSRD = DATA FOR GR0UP2 

9.1 TEST 1 - TEST CHIP INTERRUPT, GRUUP1 .GR0UP2 

THIS TEST WILL CHECK THE ABILITY OF EACH INTERRUPT 
CONTROL CHIP TO INTERRUPT TO COMMON VECTOR 300. 
THIS TEST WILL ALSO CLEAR THE HIGHEST PRIORITY 
ISR BITS WITH TEST VARIATIONS OF IRR AND 
IMR BITS. 

9.2 TEST 2 - TEST ACR/ISR INTERRUPT. GROUP 1. GROUP 2 

THIS TEST WILL TEST THE ABILITY OF BOTH GROUPS 
TO INTERRUPT TO COMMON VECTOR 300 AND THE ABILITY 
OF THE ACR(AUTOCLEAR REGISTER TO CLEAR 1HE ISR 
AFTER BEING SET AND MASKED BY COMBINATIONS OF IRR BITS 
AND IMR BITS. 

9.3 TEST 3 - TEST VECTOR ADDS MEM, LEV 0-7, 8Y0-3. (204-1774) ,GRPS 1,2 

THIS TEST WILL CHECK BOTH GROUPS. ONE AT A WME.TO SECTOR 
FROM ADDRESS 20* TO ADDRESS 1774 FOR LEVELS 0-7 AND 
FOR BYTS COUNTS 1-4. THE BYTE COUNT NUMBER WILL INDICATE 
THE NUMBER OF INTERRUPTS AT A GIVEN ADDRESS. 
THE IRR, IMR AND ACR REGISTERS WILL ALL BE EXcRCISED 
AND CHECKED TO INSURE PROPE* VECTORING. 

9.4 TCST 4 - TEST VECTOR ADDR MEM, LEV 0-7, BYO-3, (0-200) ,GRPS 1,2 

THIS TEST WILL CHECK BOTH GROUPS,ONE AT A TIME, TO VECTOR 
FROM ADDRESS 0-200 TOR LEVELS 0-7 AND FOR BYTE COUNTS 1-4, 
TESTS ARE DONE TO INSURE THAT INTERRUPTS ONLY TAKE PLACE 
WHEN EVERYTHING IS READY. THE CHIP BEING ARMED .INTERRUPT 
ENABLE IS SET AND THE PROPER IMR AND IRR BITS ARE SET. 
AFTER THE INTERRUPT CHECK TO INSURE THAT THF INTERRUPTS 
GENERATED MATCH JHE BYTE COUNi AND THAT THE f ROPER 
ISR BITS WERE SET AND THE PROPER IRR BITS WERE CLEARED. 
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SEQ 0010 

9.5 TEST -5 - TEST VECTOR ADDR UNIQUENESS IN FIXED MODE FOR GROUPS 1,2 

THIS TEST WILL CHECK THE FIXED PRIORITY OF THE TWO 

INTERRUPT CONTROL CHIPS AS WELL AS THE ADDRESSING 

CAPABILITY OF THE VECTOR ADDRESS MEMORY. 

THE AUTOCLEAR REGISTER(ACR) IS USED TO CLEAR OUT THE 

ISR BITS AFTER 4 INTERRUPTS PER LEVEL HAS TAKEN PLACE. 

CLEARING THE ISR REGISTER WILL THEN ALLOW THE NEXT LbVEL 

OF PRIORITY TO INITIATE 4 INTERRUPTS. 

THE VECTOR MEMORY IS PRESET TO PERFORM 64 UNIQUE INTERRUPTS. 

INTERRUPT SERVICE ROUTINES ARE STORED FROM VECTORS 

300-674. EACH INTERRUPT SERVICE ROUTINE UPON INTERRUPT 

ENTRY WILL STORE THE ADDRESS OF ITS VECTOR 

IN A BUFi'ER FOR A COMPARE AFTER 64 INTERRUPTS TAKE PLACE. 

THE BUFFL;> SHOULD THEN HAVE ADDRESS VALUED IN CONSECUTIVE 

ORDER STARTING WITH VECTOR VALUE 300 AND ENDING WITH 

VECTOR VALUF 674. 

9.6 TEST 6 - TEST VECTOR ADDRESS UNIQUENESS, ROTATING PRIORITY 

FOR BOTH GROUPS 1,2 

THIS TEST WILL CHECK THE ROTATING PRIORITY OF EACH 

OF THE TWO INTERRUPT CONTROL CHIPS AS WELL AS THE ADDRESSING 

CAPABILITY OF THE VECTOR ADDRESS MEMORY. 

THE VECTOR ADDRESS MEMORY IS PRESET FOR 64 UNIQUE INTERRUPTS. 

INTERRUPT SERVICE ROUTINES ARE STORED FROM VECTORS 300-674. 

ALL IRR 8ITS ARE SET AND ALL IMR BITS ARE CLEARED. 

AFTER THE FIRST TOUR INTERRUPTS FROM IRRO TAKES PLACE, 

THE ISRO BIT WILL SET AND IR30 BIT WILL CLEAR. 

TO PROVE DOTATION OF PRIORITY, THE ISRO BIT IS CLEARED 

AND THE IRRO BIT IS SET AGAIN IN ORDER TO PtfOVE THAT 

IRR1 WILL NOW BE CONSIDERED THE HIGHEST PRIORITY AND 

IRRO THE LOWEST PRIORITY THIS TLOW IS REPEATED FOR 

ALL LEVELS OF GROUP 1(0-7). THEN GROUP 2 IS TESTED 

IN THE SAME MANNER FOR LEVELS 0-7. EACH INTERRUPT 

SERVICE ROUTINE UPON ACCESS FROM AN INTERRUPT WJl L STORE 

THE ADDRESS OF THE VECTOR WHERE THE ROUTINE RESIDES IN 

A BUFFER. AFTER ALL 64 INTERRUPTS TaKE PLACE (', AT A TIME 

FOR EACH LEVEL) THE BUFFER WILL BE CHECKED FOR CONSECUTIVE 

VECTOR VALUES OF 300-674. THIS WILL INSURE THAT PROPER 

VECTOR ADDDRESS1NG AND ROTATION OF PRIORITIES WAS 

COMPLETED. 

10.0 LISTING 



CVDRDB DrtVUJ 


DIA6 TST PR T 2 MA 


CVDRDB. P11 


10-AUG-81 10:52 


11 




12 




(1) 




(1) 




(V 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 


000001 


(1) 


160000 


13 




14 




15 




16 


165400 


17 


000001 


18 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(1) 




(11 




19 




(1) 




(1) 




(1) 


001100 


(1) 




(1) 




(1) 




(1) 




(1) 


000011 


(1) 


000012 


(1) 


000015 


(1) 


00020G 


(1) 


177776 


(1) 




(1) 


177774 


(1) 


177772 


(1) 


177570 


(1) 


177570 


(!) 




(1) 




(1) 


000000 


(1) 


000001 


(1) 


000002 


(1) 


000003 


(1) 


000004 


(1) 


000005 


(1) 


000006 


(1) 


000007 
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L 1 
PAGE 



SEQ 0011 



;GPA .HEADER VCVDRDA DRV11J DIAG TST PRT2 /,1979, A /8ILL HEAVEY/ 
TITLE CVDRDB DRV11J DIAG TST PRT2 
•COPYRIGHT 'O i979 
♦DIGITAL EQUIPMENT CORP. 
♦MAYNARD, MASS. 01754 

* 

♦PROGRAM 3Y GILL HEAVEY 
* 

♦THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAJNDEC SYSMAC 
♦PACKAGE (MAJNDEC- 11-DZQAOC5), JAN, 1981. 

* 

$TN=1 

$SWR=1 60000 
* EDITED TO 

* 

$SWR=165400 

STN--1 

.S8TTL 

■ * 

w 

• * 

t 

* * 
■ * 

r 

;♦ 
• * 

'.SBTTL 



;;HALT ON ERROR, 

PERMIT DRV'S TO RUN 

G. PASGUANTONIO, 



LOOP ON TEST, INHIBIT ERROR TYPOUT 
ON FALCON CKXT11). ;;GPA 

JULY '81 ;;GPA 



OPERATIONAL SWITCH SETTINGS 
SWITCH USE 



15 

14 

13 

11 

9 

8 

BASIC 



HALT ON 
LOOP ON 
INHIBIT 
INHIBIT 
LOOP ON 
LOOP ON 
DEFINITIONS 



ERROR 

TEST 

ERROR TYPEOUTS 

ITERATIONS 

ERROR 

TEST IN SWR<7:0 S 



;*INITIAL ADDRESS OF THE STACK POINTER ♦*♦ 1100 ♦♦♦ 
STACKS 1100 

.EQUIV £MT, ERROR ;;BASJC DEFINITION OF ERROR 

.EQUIV IOT, SCOPE ;;BASIC DEFINITION OF SCOPE 



CALL 
CALL 



♦MISCELLANEOUS DEFINITIONS 

CODE FOR HORIZONTAL TAB 

CODE FOR _JNE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 



HT = 

LF^ 

CR= 

CRLF = 

PS= 

.EQUIV 

STKLMT= 

PIRU= 

DSWR= 

DP1SP= 



11 

12 

15 

200 

17^776 

PS,PSW 

177774 

177772 

177570 

177570 



STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 



♦GENERAL PURPOSE REGISTER DbFIWITIONS 



R0= 
R1 = 
R2^ 
R3= 
R4= 
R5 = 
R6-- 
R7= 



XO 
XI 
X? 

XJ 

X4 
X5 
X6 
X? 



GENERAL 
GENERAL 
G^WERAL 
GENERAL 

GENERAL 
GENERAL 
GENERAL 
GENERAL 



REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGISTER 
REGICTER 
REGISTER 
REGISTER 



CVDRDB DRV11J 


DIhG TST PRT2 


CVDR0B.P11 


10-AUG-81 1U:52 


(1) 


000006 


;d 


000007 


(D 




(i) 




d) 


000000 


d) 


000040 


d) 


000100 


(D 


000140 


(D 


000200 


(D 


000240 


(D 


000300 


(D 


000340 


(D 




(D 




(D 


100000 


(D 


040000 


(D 


020000 


(D 


010000 


(D 


004000 


d) 


002000 


(D 


001000 


m 


000400 


d) 


000200 


d) 


000100 


(1) 


000040 


d) 


000020 


(D 


000010 


id 


000004 


(i) 


000002 


(i) 


000001 


(1) 




(1) 




d) 




d) 




(1) 




(i) 




m 




(1) 




(i) 




(D 




<1> 




m 




d) 


100000 


d) 


040000 


d) 


020000 


d) 


010000 


(!) 


004000 


(1) 


002000 


(1) 


001000 


(1) 


000400 


(1) 


000200 


(1) 


000100 


(1) 


000040 


(1) 


000020 


(1) 


000010 


(1) 


000004 



MACY11 306(1065) 10-AUG-81 11:00 
BASIC DEFINITIONS 
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SEQ 0012 



SP= 


X6 


;STACK POINTER 




PC= 


XI ;; PROGRAM COUNTER 


^PRIORITY LEVEL DEFINITIONS 




PRO= 





;PRlORlJy LEVEL 





PR1 = 


40 


;PRIORITY LEVEL 


1 


PR2= 


100 


.-PRIORITY LEVEL 


2 


PR3= 


140 


PRIORITY LEVEL 


3 


PR4= 


200 


.•PRIORITY LEVEL 


4 


PR5= 


240 


; PRIORI TV LEVEL 


5 


PR6- 


300 


;PRIORITY LEVEL 


6 


PR7= 


340 


;PRIORITY LEVEL 


7 


;*"SWITCH REGISTER* 1 SWITCH DEFINITIONS 




SU15= 


100000 




SW14= 


400C0 




SW13= 


20000 




SW12- 


10000 




SW11 = 


4000 




SW10= 


2000 




SW09= 


1000 




SW08= 


400 




swo?- 


200 




SW06- 


100 




SW05- 


40 




SW04= 


d.v 




SW03= 


10 




SW02= 


4 




SW01 = 


2 




swoo= 


1 




.EQUIV 


SW09.SW9 




.EQUIV 


SU08,SW8 




.EQUIV 


SW07,SW7 




.EQUIV 


SW06,SW6 




, EQUIV 


SU05.SW5 




.EQUIV 


SW04,SU4 




.EQUIV 


SUC3,SU3 




.EQUIV 


SU02,SW2 




.EQUIV 


swouswi 




vEQUIV 


SWOO.SWO 




; *DATA 


BIT DEFINITIONS (BITOO TO BIT15) 




BJT15= 


100000 




BIT14= 


40000 




BTT13= 


20000 




=ii ri2= 


100C0 




MIT1 1 = 


4000 




FIT10^ 


2000 




tfIT09= 


1000 




BIT08= 


400 




PI707= 


200 




HIT06= 


100 




LIT05= 


40 




p:to4= 


20 




BIT03- 


10 




BJT02= 


4 







CVDRDB DRV1U 
CVDRDB.P11 

(1) 
(1) 
(1) 
(1) 
C\) 
(l) 
(1) 
(1) 
(') 
(1) 

m 
d) 
n> 



DIAG TST PRT2 
10-AUG-81 10:52 

ooooo? 

000001 



MACY11 306(1063) .O-AUG-81 11:00 
BAS\C DEFINITIONS 



N 1 

PAGE 



1-2 



SEQ 0013 



(1) 


0QQG04 


CI) 


000010 


U) 


000014 


(1) 


C00014 


(}) 


000014 


( 1 ) 


000020 


i 1 ) 


O00024 


f * ' 


000030 


f t \ 


OU0034 


(]) 


000060 


I"* 1 1 


000064 


<1' 


000~40 


?'".' 


164160 


/ * 


000001 


.-.'.. ' 


10000C 


. * 


000400 


? : 'r 


001000 




000020 


- M 


000030 


* 


000040 


i' 


ocooso 




000060 


v > 


000070 




f/QO 1 20 


*- 


000110 


** "* 


000*20 

000 mO 


? a 




-1. n .^ 1 • rt 


. • 


.00)60 




iV.A1 7 A 




*.« J V ! < V 


■4 "- 


CU0200 


» : 


U00<*0 


J' 


QG02'*0 


«. * 


000244 



BIT01= 


2 




BITOO- 


1 




. EQUIV 


BJT09,.IT9 




.EQUIV 


BIT08 # £. f T8 




.EQUJV 


BIT07,B1T7 




.EQUIV 


BJT06,BI I <• 




.EQUIV 


BJT05,BIT3 




.EQUIV 


BIT04,8JT4 




.EQUIV 


01103,8113 




.EQUIV 


BIT02,8TT2 




•FQUIV 


BIT01,8IT1 




.EQUIV 


BIT00,8IT0 




;*BASIC 


'•CPU" TRAP VhC 


FHR 


ERRVEC= 


4 




RESVEC= 


10 




TBITVEC 


=14 




TRTVEC= 


14 




BPTVEC= 


14 




MTVEC= 


20 




PWRVEC= 


24 




E«MTVEC= 


30 




TRAPVEC 


=34 




iKVEC= 


60 




TPVEC- 


64 




PIRGVEC 


^240 




ABASE= 


76 ,160 


;E 


ADEVM= 


1 


;C 


RDY~ 


BIT15 




DIR= 


BIT8 




l^ 


BIT9 





OTHER ERRORS 
ILLEGAL INSTRUCTIONS 



••SCOPE** 



ADDRESSES 

TIME OUT AND 

RESERVED AND 

"T" BIT 

TRACE JiVf- 

BREAKPOINT TRAP (BPT) 

INPUT/OUTPUT TRA D (IOT) 

POWER FAIL 

EMULATOR TRAP <EMT) **ERROR** 

"TRAP" TRAP 

TTY KEYBOARD VECTOR 

TTY PRINTER VECTOR 

PROGRAM INTERRUPT REQUEST VECTOR 
BASE ADDRESS 
DEFAULT TO ONE DRV1U 



;CHIP COMMAND SUMMARY 
CIRMR= 20 
CSJRftt- 30 



; CLEAR IRR AND IMR 

;CLEAR SINGLE IRR AND 1!W BIT 



UMR-- 

csim- 

SIMR= 
SSJMR^ 


40 
50 
60 
70 


; CLEAR IMR 

; CLEAR SINGLE IMR BIT 
;"ET ALL MR BITS 
;;;FT SINGLE IMR BITS 


CIRR= 
CSIRR= 
SIRR= 
SSIRR= 


100 
110 
120 
130 


;OLEAR IRR 

; CLEAR SINGLE IRR BITS 
;j;ET ALL IRR BITS 
;IiET SINGLE IRR BITS 


CHPISR^ 

CISR= 

CSISR- 


140 
160 
170 


; CLEAR HIGHEST PRIURITY 

; CLEAR ISR 

; CLEAR SINGLE ISR BIT 


lM004- 
LMb57= 


200 
240 


;LOAD MODE BITS M0-M4 
;LOAD MODE BITS M3-M7 


;CHIP MODE BIT 
MISR= 24C 
MIMR= 2*4 


PRESELECTION 



ISR BIT 



CVDRDB 


DRV11J D1AG TST 


PRT2 


CVDRDB. 


P11 10-AUG-81 


10:52 


50 




000250 




51 




000254 




52 








53 








54 




000300 




55 




000260 




56 




00034U 




57 








58 








(1) 








(1) 




000000 




(1) 








(1) 








(1) 








(1) 




000! /4 




(1, 


000 1 74 


000000 




(1) 


000176 


000000 




(1) 








(1) 


000200 


000137 


002476 


59 




0001™ 




60 


000100 


000104 


000200 


61 









MACY11 30G<1063) 10-AUG-81 11:00 
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PAGE 
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SEQ 0014 



MIRR= 250 

MACR= 254 

;CHIP WRITE 
PACR= 300 
PIMR= 260 
PVMA= 34U 



PRESELECTION 



PRESELECT AUTO CLEAR REG. FOR WRITING 
PRESELECT JMR REG. FOR WRITING 
PRESELECT VECTOR MEMORY ADDRESS 



.SBTTL TRAP CATCHER 



;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2, HALT" 
.-♦SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
.♦♦LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

. = 174 
DISPREG: .WORD 



000002 



SWREG: .WORD 

.SBTTL STARTING ADDRESS(ES) 

J MP atfSTART ;;JUMP 

. = 100 

.WORD 104,200,2 



;;SOFTWARE DISPLAY REGISTER 
; SOFTWARE SWITCH REGISTER 

TO STARTING ADDRESS OF PROGRAM 



:1F 'B EVENT' ON Q BUS 
.-IGNORE IT'S INTERRUPT 



IS CONNECTED 
- JUST DO A RTI 



000046 
000052 



CVDRDB DRV11J 
CVDRDB.P11 



63 
(1) 
(?) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
64 
65 
66 
67 
68 
(1) 
(2) 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



DIAG TST PRT2 
10-AUG-81 10:52 



000024 
000044 



002000 
C02000 
002002 
002004 
002006 
002010 
002012 



000106 
000046 
010760 
000052 
000000 
000106 
002000 



002000 
000024 
000200 
000044 
0U2000 
002000 



000000 
002170 
000014 
000036 
000036 
000031 



C 2 

MACY11 30G(1063) 10-AUG-81 11:00 PAGE 1-4 
ACT11 HOOKS 

.SBTTL ACT11 HOOKS 

. . ***** *************** *********** ** ************************** **** 

•HOOKS REQUIRED BY ACT11 
$SVPC=. 



SEQ 0015 



.=46 

SENDAD 

•=52 

.WORD 

♦=$SVPC 

,=2000 



.SBTTL APT PARAMETER BLOCK 



;SAVE PC 

;;1)SET LQC.46 TO ADDRESS OK SENDAD IN .$E0P 

;;2)SET LOG. 52 TO ZERO 
;; RESTORE PC 

LONGEST TEST TIME 
1ST PASS RUN TIME 
ADDITIONAL RUN TIME 



.•************************* ************************************** 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

••***************-.;• *********************************************** 

.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 

200 ;;FOR APT START UP 

.=44 ;;POJNT TO APT INDIRECT ADDRESS PNTR. 

SAPTHDR ;;POINT TO APT HEADER BLOCK 

. = .$X ;;RESET LOCATION COUNTER 
**************************************************************** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD 

SHIBTS 

$MBADR 

STSTM: 

SPASTM: 

SUNITM: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 





SMAIL 

12. 

30. 

30. 



TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

ADDRESS OF APT MAILBOX (BITS 0-15) 

RUN TIM OF LONGEST TEST 

RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 



$ETEND-$MAIL/2 ;;LENGTH MAI LBOX-E TABLE i WORDS) 



UNIT 



CVDRDB 0RV11J OIAG TST PRT2 


CVDRDB. 


P11 10-AUG-81 10:52 


69 






(1) 






(2) 






(1) 






(1) 






(1) 






(1) 




002100 


(1/ 


002100 




(1) 


002100 


000000 


(1) 


002102 


000 


(1) 


002103 


000 


(1) 


0021 04 


000000 


(1) 


002106 


ooooco 


(1) 


002110 


000000 


(1) 


002112 


000000 


(1) 


002114 


000 


(1) 


002115 


001 


(1) 


002116 


000000 


(1) 


002120 


oroooo 


(1) 


002122 


000000 


(1) 


002 24 


000000 


(1) 


002)26 


000000 


(1) 


002130 


000000 


(1) 


002132 


000000 


(1) 


002134 


000 


(1) 


002135 


000 


(1) 


002136 


000000 


(1) 


0U2140 


177570 


(1) 


002142 


177570 


(1) 


002144 


177560 


(1) 


002146 


177562 


(1) 


002150 


177564 


(1) 


002152 


177566 


<1> 


002154 


OOO 


(1) 


002155 


002 


(1) 


002156 


012 


(1) 


002157 


000 


(1) 


002160 


000000 


(1) 


002162 


000000 


(1) 


002164 


077 


(1) 


002165 


015 


(1) 


002166 


000012 


(2) 






<2) 






(2) 






(3) 






(2) 






(2) 


002170 




(2) 


0021^0 


000000 


(2) 


002172 


000000 


(2) 


002174 


000000 


(2) 


002176 


000000 


(2) 


002200 


000000 


(2) 


002202 


000000 


(2) 


002204 


000000 


(2) 


002206 


000000 



MACY11 30GH063) 10-AUG-81 
COMMON TAGS 

.SBTTL COMMON TAGS 
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SEQ 0016 



****************************************************** *********** 

;'*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 



$CMTAG: 

STSTNM: 

$ERFLG: 

SICNT: 

SLPADR: 

SLPERR: 

$ERTTL; 

$ITEMB: 

$Ef<MAX; 

SERRPC: 

SGDADR; 

SBDADR: 

tGDDAT: 

SBDDAT; 



SAUT08: 
SINTAG: 

SWR; 

DISPLAY 

STKS: 

$TK8: 

$TPSi 

$TPB: 

SNULL: 

SFILLS: 

SFJLLC: 

STPFLG: 

STIMES: 

SESCAPE 

$QUES: 

$CRLF: 

$LF: 

;;***** 

.SH7TL 



.=2100 

.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.UORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 

: .WORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.8YTE 


:0 
-ASCII 
.ASCII 

.ASCIZ 

******* 












1 





















DSWR 

DDISP 




2 

12 




/?/ 
<15> 

<12> 

******* 



;; START OF COMMON TAGS 

CONTAINS ME TEST NUMBER 
CONTAINS ERROR FLAG 
CONTAINS SUBTEST ITERATION COUNT 
CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
CONTAINS TOTAL ERRORS DETECTED 
CONTAINS ITEM CONTROL BYTE 
CONTAINS MAX. ERRORS PER TEST 
CONTAINS PC OF LAST ERROR INSTRUCTION 
CONTAINS ADDRESS OK 'GOOD* DATA 
CONTAINS ADDRESS OF 'BAD 1 DATA 
CONTAINS 'GOOD* DATA 
CONTAINS 'BAD 1 DATA 
RESERVED— NOT TO BE USED 

AUTOMATIC MODE INDICATOR 
INTERRUPT MODE INDICATOR 

ADDRESS OF SWITCH REGISTER 

ADDRESS OF DISPLAY REGISTER 

TTY KBD STATUS 

TTY KBD BUFFER 

TTY PRINTER STATUS REG. ADDRESS 

TTY PRINTER BUFFER REG. ADDRESS 

CONTAINS NULL CHARACTER FOP FILLS 

CONTAINS OF FILLER CHARACTERS REQUIRED 

<NSERT FILL CHARS. AFTER A 'lINE FEED" 

"TERMINAL AVAILABLE*' FLAG (BIT<07>=0=YES) 

MAX. NUMBER OF ITERATIONS 

ESCAPE ON ERROR ADDRLSS 

QUESTION MARK 

CARRIAGE RETURN 

LINE FEED 

********************* *********************** 



APT MAI LBOX-E TABLE 



■^' A*********************************** w, ********* ************** 



SMAIL: 

SMSGTVr .WORD AMSGTY 

SFATAl .WORD AFATAL 

STESTN: .WORD ATESTN 

$PASS: .WORD APASS 

JDEVCT: .WORD ADEVCT 

SUNJT: .WORD AUNIT 

SMSGAD: .WORD 4MSGAD 

SMSGLG: .WORD AMSGLG 



APT MAILBOX 
MESSAGE TYPE CODE 
FATAL ERROR NUMBER 
TEST NUMBER 
PASS COUNT 
DEVICE COUNT 
I/O UNIT NUMBER 
MESSAGE ADDRESS 
MESSAGE LENGTH 



CVDRDB DRV1U DIA6 TST PR 1 2 WA< 


CVDRDB. 


P11 10-AUG-81 10:52 


(2) 


002210 




(2) 


002210 


000 


(2) 


002211 


000 


(2) 


002212 


000000 


(2) 


0022K 


000000 


(2) 


002216 


000000 


(2) 






(2) 






(2) 






(2) 






(2) 






i?: 






(2) 


002220 


000 


(2) 


002221 


000 


(2) 






(2) 






(2) 






(2) 






(2) 


002222 


000000 


(2) 






(2) 


002224 


000 


(2) 


002225 


000 


(2) 


002226 


000000 


(?) 


002230 


000 


(2) 


002231 


000 


(2) 


002232 


000000 


(?) 


002234 


000 


(2) 


002235 


000 


(2) 


002236 


000000 


(2) 


002240 


000000 


(2) 


002242 


000000 


(2) 


002244 


164160 


(2) 


002246 


000001 


(?) 


002250 


000000 


(2) 


002252 




(2) 







30GH063) 10-AUG-81 11:00 
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SEQ 0017 



SETA8LE: 
$ENV: 
SENVM: 
$SWREG: 

$USWR: 
SCPUOP: 

;* 
;* 

;* 

• * 

;* 

i/W1S1r 
SMTYP1: 

;* 



.BYTE 
.BYTE 
.WORD 

.WORD 
.WORD 



.BYTE 
.BYTE 



&MAMS2 

5MTYP2 

$MADR2 

SMAMS3 

*MTYP3 

SMADR3 

$MAMS4 

SMTYP4 

SMADR4 

SVECT1 

SVECT2 

$BASE 

SDFVM 

.-,< DW1 

SFTFND: 

.MfcXJT 



BYTE 
o.TE 
,WORD 
BYTE 
,BYTE 
,WORD 
• BYTE 
DYTE 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



AEMV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



AMAMS1 
AMTYP1 



iflADRI: .WORD AMADR1 



AMAMS2 

AMTYP2 

AMADR2 

AMAMS3 

AMTYP3 

AMADR3 

AMAMS4 

AMTYP4 

AMADR4 

AVECT1 

AVECT2 

ABASE 

ADEVM 

ACDW1 



f»Y 



,* , ENVIRONMENT TABLE 
ENVIRONMENT BY It 
ENVIRONMENT MODE BITS 
;APT SWITCH REGISTER 
;USEB SWITCHES 
;CPU TYPE, OPTIONS 
BITS 15-11=CPU TYPE 

11/04-01, 11/05=02, 11/20=03, 11/40=04 ,1 1/45=05 
11/70=06, PDQ=07,Q=10 
BIT 10=REAL TIME CLOCK 
BIT 9=FL0ATING f'OINT PROCESSOR 
BIT 8=MEM0RY M/ JAGFMENT 
;jHIGH ADDRESS, M.S. BYTE 
;;MEM. TYPE,BLM>1 
MEM. TYPE BYTE — (HIGH BYTE) 
900 NSEC CORF=001 
300 NSEC BIPOLAR=002 
500 NSEC M0S=003 
HIGH ADDRESS,BLMM 

MEM. LAST ADDR.=3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 
HIGH ADDRESS,M.S. BYTE 
MEM.TYPE,BLK*2 
MEM. LAST ADDRESS, BLM2 
HIGH ADDRESS, M.S. BYTE 
MEM. TYPE, BLK#3 
MEM. LAST ADDRESS, 8LK#3 
HIGH ADDRESS, M.S. BYTE 
MEM,TYPE,BLM>4 
MEM. LAST ADDRESS, BLK/T4 
INTERRUPT VECTORS, BUS PRIORITY*! 
INTERRUPT VECT0RJ2BUS PRIORI TY*2 
BASE ADDRESS OF EQUIPMENT UNDER TEST 
0^\ ! KE MAP 
CONTROLLER DESCRIPTION W0RD#1 



1 



CVORDB DRV11J DIAG TST PRT2 


CVDRDBJ 


>11 10-AUG-B1 10:52 


(1) 






(1) 






(1) 






CD 






(1) 






(1) 






(1) 






(1) 






(1) 






(1) 






(!) 






(1) 






(1) 






(1) 






(1) 
70 
71 


002252 




002252 


016101 


72 


002254 


016416 


73 


002256 


016666 


74 
75 
76 


002260 


OOOOOO 






77 


002262 


016120 


78 


002264 


016463 


79 


002266 


016702 


80 


002270 


OOOOOO 


81 






82 






83 


002272 


016142 


84 


002274 


016463 


85 


002276 


016702 


86 


002300 


OOOOOO 


87 






88 






89 


002302 


016155 


90 


002304 


016463 


91 


002306 


016702 


92 


002310 


OOOOOO 


93 






94 






95 


002312 


016170 


96 


002314 


016463 


97 


002316 


016702 


98 


002320 


OOOOOO 


99 






TOO 






101 


002322 


016203 


102 


002324 


016463 


103 


002326 


016702 


104 


0U2330 


OOOOOO 


105 






106 






10? 


002332 


016375 


108 


002334 


016416 


109 


002336 


016666 


110 


002340 


OOOOOO 



MACY11 306(1063) 10-AUG-81 (1:00 
ERROR POINTER TA8LE 

.SBTTL ERROR POJ "ER TABLE 
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SEG 0018 



;*THJS TABLE C0N1 .MS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

;*LOtATION SITEMB. THIS NUMBER INDICATES WHICH ITEM W THE TABLE IS PERTINENT. 

;*N0TE1: IF SiTEMB IS THE ONLY PERTINENT DATA IS (SERRPC). 

;+N0TE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS 



;* 



SERRTB: 
;ERr,OR 



; ERROR 



; ERROR 



; ERROR 



; ERROR 



; ERROR 



; ERROR 



EM 
DH 
DT 
DF 



;; POINTS TO THE ERROR MESSAGE 

;;POJNTS TO THE DATA HEADER 

;; POINTS TO THE DATA 

;; POINTS 10 THE DATA FORMAT 



1 

EM1 
DH1 
DT1 



;REG TIMEOUT ER 
; ERRPC TSTNUM 
; SERRPC TSTNUM 


BUSADR 
SBDADR 


EXPCT 
SGDDAT 


RCVD 
SBDDAT 




2 

EM2 
DH2 
DT2 



REG READ/WRITE 
ERRPC TSTNUM 
SERRPC TSTNUM 


ER 

BUSADR 
SBDADR 


VAM 
VECVAL 


ADDR 
VECLOC 


{EXPCT 

SGDDAT 


RCVD 
S8DDAT 


3 

EM3 
DH2 
DT2 



IRR REG ER 
ERRPC TSTNUM 
SERRPC TSTNUM 


BUSADR 
SBDADR 


VAM 
VECVAL 


ADDR 
VECLOC 


EXPCT 
SGDDAT 


RCVD 
SBDDAT 


4 

EM4 

DH2 

DT2 




ACR REG ER 
ERRPC TSTNUM 
•SERRPC TSTNUM 


BUSADR 
SBDADR 


VAM 
VECVAL 


ADDR 
VECLOC 


EXPCT 
SGDDAT 


RCVD 
SBDDAT 


5 

EM5 

DH2 

DT2 




>IMR REG ERROR 
•ERRPC TSTNUM 
rSERRPC TSTNUM 


BUSADR 
SBDADR 


VAM 
VECVAL 


ADDR 
VECLOC 


EXPCT 
SGDDAT 


RCVD 
SBDDAT 


6 

EM6 
DH2 
DT2 



■JSR REG ERROR 
•ERRPC TSTNUM 
rSERRPC TSTNUM 


BUSADR 
S8DADR 


VAM 
VECVAL 


ADDR 
VECLOC 


EXPCT 
SGDDAT 


RCVD 
SBDDAT 


7 

EM14 

DHl 

DT1 




;VECTOR ADDR MEM ER 
; ERRPC TSTNUM BU' : AD? 
;$ERRPC TSTNUM SBDADR 


EXPCT 

:^dat 


RCVD 
SBDDAT 







CVDRDO DRV1U 
CVDRDB.P11 



D1AG TST PRT2 
10-AUG-81 10:52 
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SEQ 0019 



111 
112 
113 
IK 
115 
116 
117 
118 
119 
120 

^^^ 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

HO 

HI 

142 

143 

144 

K5 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 



002342 
002344 
002346 
002350 



002352 
002354 
002356 
002360 



002362 
002364 
002366 
002370 



002372 
002374 
002376 
002400 



002402 
002404 
002406 
002410 



002412 
002414 
002416 
002420 
002422 
002424 
002426 
002430 



002432 
002434 
002436 
002440 
002442 
002444 
002446 
002450 
002452 



016251 
016463 
016702 
000000 



016266 
016550 
016722 
000000 



016316 
016463 
01^02 
000000 



016343 
016463 
016702 
000000 



016216 
016615 
016736 
000000 



164160 
164162 
164164 
164166 
164170 
164172 
164174 
164176 



OCOOOO 
000001 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



; ERROR 



; ERROR 



; ERROR 



; ERROR 



; ERROR 



10 
EM10 

DH2 
DT2 


11 
EM11 

DH3 
DT3 


12 

EM12 
DH2 
DT2 


13 

EM13 
DH2 
DT2 


14 
EM7 

DH4 
DT4 




CHIP STAT ER 
ERRPC TSTNUM 
SERRPC TSTNUM 



BUSADR 
SBDADR 



VAM 
VECVAL 



ILLEGAL INTERRUPT RECEIVED 
ERRPC TSTNUM BUSADR VAM 
SERRPC TSTNUM SBDADR VECVAL 



INTERRUPT T C .ST ERROR 
ERRPC TSTNUM BUSADR VAM 
SERRPC TSTNUM SBDADR VECVAL 



MULTIPLE INTERRUPTS RECEIVED 
MULTIPLE INTERRUPTS RECEIVED 
ERRPC TSTNUM BUSADR VAM 
SERfiPC TSTNUM SBDADR VECVAL 



ILLEGAL VECTOR 
ERRPC TSTNUM 
SERRPC TSTNUM 



ADDR MEM ERROR 
TESTPT BUSADR 
SGDADR SBDADR 



ADDR 
VECLOC 



ADDR 
VECLOC 



ADDR 
VECLOC 



ADDR 
VECLOC 



VAM 
VECVAL 



EXPCT 
SGDDAT 



RCVD 
SBDDAT 



EXPCT RCVD 
SGDDAT SBDDAT 



EXPCT 
SGDDAT 



ADDR 
VECLOC 



RCVD 
SBDDAT 



BUS REGISTER ADDRESS POINTERS 



DRCSA 
DRD8A 
DRCSB 
DRDR9 
DRCSC 
DRDBC 
DRCSD 
DRDBD 



ABASE 

ABASE+2 

A8ASE+4 

ABASE+6 

ABASE+10 

ABASE+12 

ABASF+14 

ABASE+16 



; COMMON PROGRAM LOCATION(S) 



TSTNUM: 

DMAP: 

J.NTFLG: 

XXDP: 

IMRLQC: 

ISRLOC: 

IRRLOC: 

ACRLOC: 

VECLOC: 




1 

.WORD 
.WORD 
.WORD 
WORD 
.WORD 
.WORD 
.WORD 



; CONTAINS TEvST NUMBER ON ERROR 



~i 



CVDRDB 


DRV11J DiAG TST PRT2 


CVDRDB. 


P11 10-AUG-81 10:52 


16? 


002454 000000 


168 


00245>6 000000 


169 


002460 000000 


170 


002462 000000 


171 


002464 000000 


172 


002466 000000 


173 


002470 000000 


174 


002472 000000 


175 


002474 000000 
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SEQ 0020 



VECPAT: 


.WORD 





VECVAL: 


.WORD 





SWRiAV: 


.WORD 





GRPCNT; 


.WORD 





BDSAV: 


.WORD 





LVlCNT; 


.WORD 





BYCNT: 


.WORD 





BYNUM: 


.WORD 





LVLSAV: 


.WORD 






CVDRDB DRV11J 
CVDRDB.P11 



D1AG TST PRT2 
10-AUG-81 10:52 



HACY11 30GH063) 10-AUG-81 11:00 
PROGRAM START 



I 2 
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1-10 



SEG 0021 



178 
179 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

n> 

(i) 
d) 
d) 

(D 
d) 
(D 
(D 
d) 

M) 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

(2) 

U) 

(2) 

(2) 

(2) 

(2) 

<2> 

(2) 

(2) 

(1) 

(2) 

(2) 

(2) 

(2) 

(2) 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 



002476 



002476 
002502 
002504 
002510 
002512 

002516 
002524 
002532 
002540 
002546 
002554 
002562 
002570 
002576 
002602 
002606 
002614 
002622 



002630 
002634 
002642 
002650 
002656 
002664 

002666 
002670 
002674 
002676 
002704 
002712 

002716 
002722 
002730 
002732 
002740 
002740 
002744 
002750 
002754 
002760 
002762 
002770 
002776 
003004 
003012 
003014 
005022 



012706 
005026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005037 
005037 
1127^7 
012737 
01 2767 



013746 
012737 
012737 
012737 
022777 
001012 

000403 
012716 
000002 
012737 
012737 
012637 

005037 
132737 
001403 
012737 

005037 
005037 
005037 
004737 
001420 
042737 
042737 
042737 
P23727 
001003 
012737 



002100 

002140 

002100 

014462 
000340 
014134 
000340 
015732 
000340 
015526 
000340 
002160 
002162 
000001 
002614 
002622 



00000* 

002671 

17757l- 

177570 

\77777 



002676 

000176 
000174 
000004 

002176 
000200 

002212 

002172 
002170 
002174 
017360 

000040 
000040 
000040 
002244 



000020 
000022 
000030 
000032 
000034 
000036 
000024 
000026 



002115 
002106 
0J2110 



000004 
002140 
002142 
177254 



002140 
002142 



002211 
002140 



000022 
000032 
000036 
164160 



.SBTTL PROGRAM START 
START: 

.SBTTL INITIALIZE THE COMMON TAGS 
;; CLEAR THE COMMON TAGS <$CMTAG) AREA 



MOV 
CLR 
CMP 
BNE 
MOV 
;;INITIALJZE 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
M0V8 
MOV 
MOV 



#$CMTAG,R6 ;;FIRST LOCATION TO BE CLEARED 
(R6) + ;; CLEAR MEMORY LOCATION 

#SWR,R6 ;;DONE? 
.-6 ;;LOOP BACK IF NO 



#2100, SP 
FEW VECTORS 
#$SCOPE,a#IOTVEC 
#340,a#IOTVEC+2 ( 
TERROR, a*EMTVEC 
#340,a#EMTVEC+2 , 
#$TRAP,a#TRA*VEC 



#340,a#TRAPVEC+2;LEVEL 7 



#$PWRDN,a#PWRVEC 

#340,a#PWRVEC+2 , 

STIMES 

$ESCAPE 

#1,$ERMAX 

#.,$LPADR 



;;SETUP THE STACK POINTER 

;IOT VECTOR FOR SCOPE ROUTINE 

LEVEL 7 

;EMT VECTOR FOR ERROR ROUTINE 

LEVEL 7 

;TRAP VECTOR FOR TRAP CALLS 



;POWER FAILURE VECTOR 

LEVEL 7 

INITIALIZE NUMBER OF ITERATIONS 

CLEAR THE ESCAPE ON ERROR ADDRESS 

ALLOW ONE ERROR PER TEST 

INITIALIZE THE LOOP ADDRESS FOR SCOPF 

SETUP THE ERROR LOOP ADDRESS 



# SLPERR 
;;S12E FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A 'M", SETUP FOR A SOFTWARE SWITCH REGISTER. 



64$ 
65$ 
66$ 



67$: 



174160 002244 



1000$: 



MOV a#ERRVEC,-(SP) 

MOV #64$,a#ERRVEC 

MOV #DSWR,SWR 

MOV fDDISP, DISPLAY 

CMP *-1,aSWR 

BNE 66$ 

BR 65$ 

MOV #65$, (SP) 

RTI 

MOV #SWREG,SWR 

MOV #DISPREG, DISPLAY 

MOV (SPH, 9#ERRVEC 

CLR $PASS 

BITS #APTSIZE,$ENVM 

BEU 67$ 

MOV #$SWREG,SWR 

CLR $FATAL 

CLR $MSGTYP 

CLR $TESTN 

CALL FALCON 

BEQ 1000$ 

BIC #40,a#22 

BIC #40,3#32 

BIC #40,a#36 

CMP $BASE,#A8ASE 

BNE 1000$ 

MOV *1 74160, $BASE 



;SAVE ERROR VECTOR 
;SET UP ERROR VECTOR 
;SETUP FOR A HARDWARE SWICH REGISTER 
;AND A HARDWARE DISPLAY REGISTER 
;TRY TO REFERENCE HARDWARE SWR 
;BRANCH IF NO TIMEOUT TRAP OCCURRED 
;AND THE HARDWARE SWR IS NOT = -1 
;BRANCH IF NO TIMEOUT 
;SET UP FOR TRAP RETURN 

; POINT TO SOFTWARE SWR 

;RESTORE ERROR VECTOR 

; CLEAR PASS COUNT 
;TEST USER SIZE UNDER APT 
; YES, USE NON-APT SWITCH 
;NO,USE APT SWITCH REGISTER 

CLEAR ERROR NUMBER 

CLEAR MESSAGE TYPE 

CLEAR TEST NUMBER 

CHECK FOR FALCON (KXT11) ;;GPA 

BR IF NOT KXT11 SYSTEM ;;GPA 

FALCON, LOWER IOT,.. ;;GPA 

...EMT... ;;GPA 

...AND TRAP TO LEVEL 6. ;;GPA 

IS $8ASE VIRGIN ?? ;;GPA 

BR IF NOT. ;;GPA 

YES, USE ENGINEERING DEFAULT ;;GPA 

;;GPA 



CVDRDB HRV11J 
CVDRDB.P11 



DIA6 TST PRT2 
10-AU6-81 10:52 
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192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 



003022 
003026 
003030 
003036 
003040 
003046 
003050 
003056 
003060 



003066 
003072 
003074 
C03100 
003104 
003106 
003112 
003114 
003120 



003124 
003130 
003132 
003134 
003140 
003146 
003154 
003160 
003164 
003172 
003174 
003200 
003204 
003206 
003212 
003216 
003220 
003224 
003230 
003236 
003244 
003246 
003250 



005737 
001410 
023737 
001410 
012737 
000404 
123727 
001003 
112737 



005227 
001 C1 4 
004537 
005737 
001403 
005737 
001404 
104401 
104401 



005737 

001001 

104406 

005037 

013737 

042737 

013701 

010137 

032737 

001002 

000137 

012700 

010120 

062701 

022700 

001372 

004537 

012706 

013737 

123727 

001401 

000005 

106427 



000042 
000042 
Mllll 
002210 
000001 

Mllll 

011354 
002134 

002440 

016012 
016054 

002134 



002202 
002246 
177760 
002244 
002412 
000001 

010636 
002412 

0000^2 
002432 

011524 
002100 
002202 
002210 



000340 



; CHECK OPERATING ENVIRONMENT 



000046 
002440 
000001 
002134 



1$: 

2$: 

;PRINT 
Hi 



4$: 



TST 

BEU 

CMP 

BEC 

MOV 

BR 

CMPB 

BNE 

MOVB 

TI^LE 
I !C 
BNE 
JSR 
TST 
BEQ 
TST 
BEQ 
TYPE 

ty^e 



002434 
002434 



002434 



;GET 
$$: 



START1 



002200 
O000O1 



THE VALUE 
TST 
BNE 
GTSWR 
CLR 
MOV 
BIC 
MOV 
MOV 
BIT 

BNE 
JMP 
MOV 
MOV 
ADD 
CMP 
BNE 
JSR 
MOV 
MOV 
CMPB 
BEQ 
RESET 
NEXPA2: KTPS 



NEXPAS: 
NEXPA1 : 



3*42 

1$ 

3*42,3*46 

2$ 

/M,XXDP 

2$ 

$ENV,*1 

3$ 

n,$AUTOB 



1-11 



ARE WE IN ACT/XXDP AUTO MODE? 

BRANCH IF NO 

IS IT ACT AUTO MODE? 

BRANCH IF YES 

SET XXDP CHAIN MODE INDICATOR 

ARE WE IN APT AUTO MODE? 

BRANCH IF NO 

SET AUTO MODE INDICATOR 



SEQ 0022 



IF 



NOT IN ACT OR APT AUTO MODE 

*-1 ;FIRST TIME? 

5$ ;SKIP TITLE IF NO 

R5,T0BUF ;STORE 0-202 INTO BUFFER AREA 

SAUTOB ;ARE WE IN AUTO MODE? 

4$ ;BRANCH TO TITLE TYPEOUT IF NOT 

XXDP ;1S THE AUTO MODE UNDER XXDP? 

5$ ;SK1P TITLE IF NOT 

, TITLED ;PRINT OUT THE TITLE 

,TLCABL ;PRINT DRV11J CABLE REQ'D 



IN THE SOFTWARE 
SAUTOB 
START1 

$UNIT 

SDEVM.DMAP 

*177760 r 0MAP 

$8ASE,Rl 

R1,DRCSA 

01, MAP 

NEXPAS 

NXDEV1 

#DRCSA,RO 

R1,(ftO)+ 

*2,R1 

#DRD8D+2,R0 

NEXPA1 

R5.TRPCAT 

*2100,SP 

$UNIT,$DEVCT 

$ENV,#1 

NEXPA2 

#PW 



SWITCH REGISTER 
ARE WE IN AUTOMATIC MODF? 
:BRANCH IF YES 

ASK FOR SWR INPUT FROM CONSOLE 
CLEAR UNIT NUMBER 
UP TO 4 DRVIU'S 
POSITION OF DRVHJ'S 

ADDRESS 

REG. POINTER = BASE 



GET BASE 

MAKE BUS 

IS FIRST DRV11-J SELECTED 

YES 

NO. ADVANCE BASE 

SET UP RZGISTER 

LOAD EM 



DRV11J ADDRESS 
ADDRESS POINTERS 



ALL DONE? 

BR IF NOT 

EXTEND TRAP CATCHER 204-1774 

ALWAYS RESET STACK 

LOAD APT COUNTER WITH UNIT * 

ARE WE IN APT MODE? 

8R IF YES, SKIP RESET 

INITIALIZE 



CVDRDB DRV11J 
CVDRDB. P11 

240 
241 
<3> 



DIAL TST PRT2 
IO-AUG-81 10:52 
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SEQ 0023 



(?) 
242 
?43 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 

263 
264 
265 

266 
267 
268 
269 

270 

271 

-\ -■» i 

i i i 

274 

in 

176 

??? 

2 "9 
280 

>S4 

;'85 

2«9 
^0 

* ■* i 



003254 
003256 
003262 
003266 
003272 
003300 
003306 
003312 
003316 
003324 
003330 
003336 
003344 
003350 
003354 
003360 
003364 
003370 
003374 
003400 
003404 
003410 



003414 
003420 
003424 
003426 
003430 
00*434 
003440 
003444 
0034 50 
003452 
0034 i>4 
0034c0 
00*464 
00 U 11 
003500 
J05506 
003514 
003516 
Cv jr '20 
003.24 
00553*:' 
003536 
005542 

■j-33556 

00J560 
005562 
003566 



000004 
013/00 
013701 
013702 
012717 
0127-;7 
004537 
012703 
01273' 
00453;* 
01273? 
012737 
005037 
012706 
112710 
112711 
010037 
112710 
113710 
112710 
1 06427 
112712 



112710 

005737 

001401 

104011 

005037 

112710 

106427 

005737 

001401 

104011 

005037 

106427 

152762 

012737 

013737 

023737 

001401 

104U12 

106427 

012737 

010237 

011237 

042737 

023737 

001401 

104002 

010137 

005037 



002412 
002416 
002412 
003344 
000002 
011014 
012636 
000050 
011074 
011644 
000340 
002436 
002100 
000340 
000060 
002122 
000060 
002442 
000202 
000000 
000241 



000241 
002436 



002436 
000120 
000340 
002436 



CO?w -6 

0300*0 

000002 
0C0001 
002456 
002124 



000340 

101 7 10 
002 !22 
002126 
000)07 
002124 



002)22 
0U2126 



♦.***** 
;*TEST 

; ; ***** 

TST1: 



********************************************************** 
1 TEST CHIP INTERRUPT , GROUP 1. GROUP 2 

******* *tt****i»:*****************ft* ****** ********** ******** 



002110 
002462 



002442 

000300 
000302 



120$: 



111$: 



1$: 



2S: 



000001 
002124 
002126 
002126 



002124 



002126 
002126 



3$: 



4$: 



SCOPE 

MOV DRCSA,RO 

MOV DRCS8,R1 

MOV DRCSA,R2 

MOV #111$,$LPERR 

MOV #2,GRPCNT 

JSR R5,CLRCSrt 

MOV #BGCHP3,R3 

MOV #CSIMR.IMRLOC 

JSR R5,CLRIRR 

MOV #INTSR1,300 

MOV #340, 302 

CLR INTFLG 

rtOV #2100, SF 

M0V8 #PVMA,(RO) 

MOVB #60, (RD 

MOV R0,$8DADR 

M0V8 #SJMR,(RO) 

M0V8 IMRLOC(RO) 

M0V8 #202, (RO) 

MTPS #PR0 

M0V8 #241, (R2) 



liOVO #241. <R0) 

1ST INTFLG 

BEQ 1$ 

ERROR 11 

CLR INTFLG 

MOVB #SIRR,(RO) 

MIPS #PR7 

1ST INTFLG 

BEO 2$ 

ERROR 11 

CLR INTFLG 

MTPS #PRO 

BIS8 #8IT1,1(R2> 

MOV #1.$GDDAT 

MOV INTFLG, SBDDAT 

CMP $GDDAT,$BDDAT 

BEO 3$ 

ERROR 12 

MTPS MPR7 

MOV #101710, SGDDAT 

MOV R2.S8DADR 

MOV (r2).*BDDAT 

PIC #7,*B0DAT 

CMP SGDDAT, SBDDAT 

BEQ 4$ 

ERROR 2 

MOV R1.SBDADR 

CLR $8DDAT 



START WITH GROUP 1 

REGISTER IS COMMON FOR BOTH GROUPS 

SET UP LOOP RETURN 

COUNTER FOR BOTH GROUPS 

CLEAR ALL CSRS 

EXPECTED GDDAT FOR JSR, IMA 

STORE CLEAR SINGLE IMR CODE 

CLEAR 1RR REGS 

STORE VECTOR ROUTINE 

STORE PSW 

CLEAR INT. FLAG 

INJT STACK IN CASF OF ILLEGAL INT. LOOP 

PRESELECT VECTOR <4EM ADDR 

WRITE VECTOR 300,6V0,LV0 

SAVE BUS ADDRESS 

SET ALL IMR BIT.) 

CLEAR MASK ON SINGLE BIT 

LMD04 - COMMON VECTOR 

USED JN TEST OF GROUP 2 
ARM GROUP 1 TO PASS 
ENABLE TO GROUP 2. 
LMD57 - ARM THE CHIP 
CHECK FOR INTERRUPTS 

ERROR. ILLEGAL INTERRUPT 
RESET INT. COUNTER 
SET ALL IRR BITS 

CHEIK FOR NO INTERRUPTS 

ILLEGAL INTERRUPTS 
CLEAR INT. COUNTER 

SET I/E. EXPECT INTERRUPT 
EXPECT ONE INTERRUPT 
SHOULD HAVE ONE INTERRUPT 



; INTERRUPT TEST ERROR 

;HDY,DIR,J/E, CHIP - 31X 
;CSRA ADDRESS 

;CLEAf, UNDEFINED BITS 



CSRA REG r RROR 

READY TO HEAD ISP REG, 

SET UP FOR BYTE READS 



CVDRDB DRV11J 
CVUKDB.P11 



DIAG TST PRT2 
10-AUG-81 10:52 



L 2 
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II TEST CHIP INTERRUPT , GROUP 1, GROUP 2 



SEC 0024 



293 003572 

294 003576 

295 003602 

296 003606 

297 003612 
<j?8 003620 

299 003622 

300 003624 

301 003632 

302 003636 

303 003642 

304 003650 

305 003652 

306 003654 

307 003662 

308 003666 

309 003672 

310 003700 

311 003702 

312 003704 

313 003710 

314 003714 

315 003720 

316 003726 

317 003730 

318 003732 

319 003736 

320 003742 

321 003746 
32? 003752 
323 003760 
32 \ 003762 

325 003764 

326 003772 

327 003776 

328 004002 

329 004010 

330 004016 

331 004020 

332 004022 

333 004030 

334 004034 

335 004040 

336 004046 

337 004054 

338 004056 

339 C04060 

340 004062 

341 004066 

342 004070 

343 004074 

344 004100 

345 004104 

346 004106 

347 004112 
348 



005037 
111337 
112710 
111137 
023737 
001401 
104006 
116337 
112710 
111137 
023737 
001401 
104005 

116337 
1127^0 

111137 

023737 

001401 

1C4003 

005037 

112710 

111137 

023737 

001401 

104004 

005037 

112710 

112710 

111137 

023737 

001401 

104006 

012737 

010237 

011237 

042737 

023737 

001401 

104002 
012737 
042712 
011237 
042737 
023737 
001401 
104002 
005723 
020327 
001404 
005237 
000137 
005337 
001406 
0i3700 
1 3701 



002124 
0C2124 
000240 
002126 
002124 



000001 
000244 
002126 
002124 



000001 
000250 
002126 
0'12124 



002124 
000254 
002126 
002124 



0C2124 
000140 
000240 
002126 
002124 



101710 
002122 
002126 
000007 
002124 



100710 
001000 
002126 
000007 
002124 



012656 

0024^2 
003344 
002462 

002422 
002426 



002126 
002124 5$: 
002126 
002124 6$: 
002126 

7$: 
002126 

10$: 

002126 
002124 11$: 



002126 
002126 



002124 12$: 



002126 
002126 



13$: 



14$: 



CLR 

K0V8 

M0V8 

M0V8 

CMP 

BEQ 

ERROR 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

M0V8 

M0V6 

M0V8 

CMP 

BEQ 

ERROR 

CLR 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

CLR 

M0V8 

M0V8 

M0V8 

CMP 

BEQ 

EPROR 

MOV 

MOV 

MOV 

BIC 

CMP 

BEQ 

ERROR 

MOV 

BIC 

MOV 

BIC 

CMP 

BEQ 

ERROR 

TST 

CMP 

BEQ 

INC 

JMP 

DEC 

BcQ 

MOV 

MOV 



$GDDAT 

(R3),$GDDAT 

*MISR,(RO) 

(R1),$BDDAT 

$GDDAT,$BDDAT 

5$ 

6 

1(R3),$GDDAT 

AMIMR,(RO) 

(R1),$BDDAT 

$GDDAT,$3DDAT 

6$ 

5 

1(R3),$GDDAT 

*MIRR,(RO> 

(R1).$BD0AT 

$GDDAT,$BDDAT 

7$ 

3 

$GDDAT 

*MACR,<RO) 

(R1),$BDDAT 

$GDDAT,$BDDAT 

10$ 

4 

$GDDAT 

#CHPISR,(ftO) 

*MISR,(RO) 

<R1),$BDDAT 

$GDDAT,$BDDAT 

11$ 

6 

*10,710,*tC/)DAT 

R2 £ $BDADR 

<R2),$8DDAT 

*/,$BDDAT 

$GDDAT,$BDDAT 

12$ 



*100710, SGDDAT 

#Bir9,(R2) 

(R2). $BDDAT 

*7,$BDDAT 

$GDDAT,$BDDAT 

13$ 

2 

vR3) + 

R3,*EDC P3 

14$ 

IMRLOC 

111$ 

GRPCNT 

TSV2 

DRCSCRO 

DRCSD,R1 



;SET UP FOR BYTE EXPECTED 

/EXPECTED DATA 

;LOAD MODE TO READ ISR 



ISR ERROR 
STORE EXPECTED 
LOAD MODE FOR IMR 



;IMR ERROR 

/EXPECTED IRR 

;LOAi) MODE BITS FOR IRR 



;IRR ERROR 



;ACR ERROR 

; CLEAR HIGHEST PRIOR ISR 

;LOAD MODE TO READ ISR 



;ISR REG ERROR 
;RDY,DIR, I/E, CHIP - 31X 
;CnRA ADDRESS 

;CLEAR UNDEFINED BITS 



CSRA REG ERROR 

RDY,DIR, CHIP - 31X 

CLEAR l/E 

3EAD CSRA 

CLEAR UNDEFINED BITS 



CSRA REG ERROR 

GET NEXT ISR, IMR EXPECTED RESULTS 

CHECK FOR END 

INCREMENT MASK BIT TO ,dM 

TEST NEXT ISR BIT 

TESTED BOTH GHOUPS? 

;BR IF DONE 

SETUP FOR GROUP 2 

CSRC = CONTROL GROUP 2 

CSRD = DATA GROUP 2 



CVDRDB DRV11J 
CVDRDB. P11 



OIAG TST PRT2 
13-AUG-81 10:52 



MACY11 30GC1063) 10-AUG-81 11:00 PAGE 2-2 

T1 TEST CHIP INTERRUPT .GROUP 1 .GROUP 2 



SEQ 0025 



349 004116 

350 

351 

352 

(3) 

(3) 

(2) 004122 

353 004124 

354 004130 

355 004134 

356 004140 

357 004146 

358 004154 

359 004160 

360 004164 

361 004172 

362 004176 

363 004204 
J' A 004212 
3b5 004216 

366 004222 

367 004226 

368 004232 

369 004236 

370 004242 

371 0U4244 

372 004250 

373 004254 

374 004260 

375 004264 

376 004270 
177 004274 

378 004300 

379 004306 

380 004312 

381 004314 

382 004316 

383 004322 

384 004326 

385 004332 

386 004336 

387 004340 

388 004342 

389 004346 

390 004352 
391 

392 

393 004356 

394 004362 

395 004370 

396 004376 

397 004404 

398 004406 

399 004410 

400 004414 

401 004420 



000137 003306 



000004 

013700 

013701 

013702 

012737 

012737 

004537 

012703 

012737 

004537 

012737 

012737 

005037 

012706 

042712 

112712 

112710 

112710 

111311 

112710 

112711 

010037 

112710 

113710 

112710 

106427 

152762 

005737 

001401 

104011 

005037 

112710 

106427 

00573 7 

001401 

104011 

005037 

106427 

112712 



112710 
012737 
013737 
023737 
001401 
104012 
106427 
010137 
005037 



002412 
002416 
002412 
004212 
000002 
011014 
012636 
000050 
011074 
011644 
000340 
002436 
002100 
001 000 
000242 
000242 
000300 

000340 
000060 
002122 
000060 
002442 
000202 
000000 
000002 
002436 



002436 
000120 
000340 
002436 



002436 

000000 
000241 



000241 
000001 
002436 
002124 



000340 
00212? 
002126 



« • *.*** 

•West 

♦ • **** 

TST2: 



O0P110 
002462 



002442 

000300 
000302 



120$ 



111$ 



000001 



1$: 



2$: 



002124 
002126 
002126 



3$: 
4$: 



JMP 



******** 

2 

******** 

SCOPE 

MOV 

MOV 

MOV 

MOV 

MOV 

JSR 

MOV 

MOV 

JSR 

MO*' 

MOV 

CLR 

MOV 

BIC 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOVB 

MOV 

MOVB 

MOVB 

MOVB 

MTPS 

BJSB 

TST 

REO 

FRROR 

CLR 

MOVB 

MTPS 

TST 

BEQ 

ERROR 

CLR 

MTPS 

MOVB 



MOVB 

MOV 

MOV 

CMP 

BEQ 

ERROR 

MTPS 

MOV 

CLR 



120$ 



;D0 GROUP 2 



**************.- ******************* ***************** 

TEST ACR/ISR INTERRUPT , GROUP 1. GROUP 2 
************* *********************** *************** 



DRCSA.RO 

DRCSB,R1 

DRCSA,R2 

#111S,$LPERR 

#2,GRPCNT 

R5,CLRCSR 

#BGCHP3,R3 

#CSIMR,IMkLOC 

R5,CLRIPR 

#INTSR1.J00 

#340,305 

INTFLG 

#2100, SP 

#BIT9,(R?) 

#242, (R2) 

#242, (RO) 

#PACR,(RO) 

(R3),(R1) 

#PVMA,(RO) 

#60, (R1) 

R0,$8DADR 

#SIMR,(RO) 

IMRLOC(RO) 

#202, (RO) 

#PRO 

#BIT1,1(N2) 

INTFLG 

1$ 

11 

INTrLG 

#SIRR,(RO) 

#PR7 

INTFLG 

2$ 

11 

INTFLG 

#PRO 

#241, (R2> 



#241, (RO) 

#1,$GDDAT 

INTFLG, 130DAT 

SGDDAT,$BDDAT 

3$ 

12 

XPK7 

R1,SBDADR 

$8DDAT 



SET UP LOOP RETURN 

DO TWO GROUPS 

CLcAR ALL CSRS 

EXPECTED GDDAT FOR ISR 

STORE CLEAR SINGLE IMR CODE 

CLEAR IRR REGS 

STORE VECTOR ROUTINE 

STORE PSW 

CLEAR INT. FLAG 

INN STACK IN CASE OF ILLEGAL INT. LOOP 

CLEAR INTERRUP T ENABLE 

CLEAR MASTER MASK GP1 

CLEAR MASTER MASK GP1,GP? 

PRESELECT ACR FOR WRITING 

NEXT 8IT INTO ACR 

PRESELECT VECTOR MEM ADDR 

WRITE VECTOR 300,BYO,LVO 

STORE BUS ADDRESS 

SET ALL IMR BITS 

CLEAR MASK ON SINGLE BIT 

LMD04 - COMMON VECTOR 

SET I/E,NO INTERRUPT 
CHECK FOR INTERRUPTS 

ERROR, ILLEGAL INTERRUPT 
RESET INT. COUNTER 
SET ALL IRR BITS 

CHECK FOR NO INTERRUPTS 

ILLEGAL INTERRUPTS 
CLEAR INT. COUNTER 

USED IN TEST OF GROUP 2 
ARM GROUP 1 CHIP TO PASS 
ENABLE TO GROUP 2 CHIP. 
ARM THE CHIP 
EXPECT ONE INTERRUPT 
SHOULD HAVE ONE INTERRUPT 



.•INTERRUPT TEST ERROR 

;READY TO READ ISR REG. 
,SET UP FOR BYTE READS 



CVDRDB 


DRV11J DIAG 1ST 


PRT2 


MACY11 


N 2 

306(1063) 10-AUG-81 11:00 PAGE 


2-3 




CVDRDB. 


P11 10-AUG-81 


10:52 




T2 


TEST ACR/1SR INTERRUPT , GROUP 1, GROUP 2 


SEQ 0026 


402 


004424 


005037 


002124 






CLR 


$GDDAT 


SET UP rOH BYTE EXPECTED 




403 


004430 


112710 


000240 






MOVB 


#MISR,(RO) 
(RP,$BDDAT 


LOAD MODE TO READ ISR 




404 


004434 


111137 


002126 






MOVB 






405 


004440 


023737 


002124 


002126 




CMP 


$GDDAT,S8DDAT ; 


ACR SHOULD CLEAR ISR 




406 


004446 


001401 








BEQ 


5$ 






407 


004450 


104006 








ERKOR 


6 „ > 


ISR ERROR 




408 


004452 


116337 


000001 


002124 


5$: 


MOVB 


1<R3),$GDDAT 


STORE EXPECTED 




409 


004460 


112710 


U00244 






MOVB 


*MIMR,(RO) ; 
<R1),$BDDAT 


LOAD MODE FOR IMR 




410 


004464 


111137 


002126 






MOVB 






411 


004470 


023737 


0021*4 


002126 




CMP 


SGDDAMBDDAT 






412 


004476 


00 401 








BEQ 


6$ 






413 


004500 


104005 








ERROR 


5 ; 


IMR ERROR 




414 


004502 


11633/ 


uooooi 


002124 


6$: 


M0V9 


1<R3),$GDDAT ; 


EXPECTED IRR 




415 


004510 


112710 


000250 






MOVB 


*MIRR,(RO) ; 
(R1),$BDDAT 


LOAD MGDE BITS FOR IRR 




416 


004514 


111137 


002126 






MOVB 






417 


004520 


023737 


002124 


002126 




CMP 


$GDDAT,$BDDAT 






418 


004526 


001401 








BEQ 


7$ 






419 


004530 


104003 








ERROR 


3 


IRR ERROR 




420 


004532 


11133/ 


002124 




7$; 


MOVB 


(R3),$GD0AT 


EXPECTED ACR 




421 


004536 


112710 


000254 






MOVB 


*MACR,(RO) 






422 


004542 


111137 


002126 






MOVB 


(R1),$BDDAT 






423 


004546 


023.37 


002124 


G02126 




CMP 


$GDDAT,$BDDAT 






424 


004554 


00K01 








BEQ 


10$ 






425 


004556 


10*004 








ERROR 


4 


ACR ERROR 




426 


004560 


005723 






10$: 


TST 


(R3) + 


GET NEXT ISR, IMR, IRR EXPECTED RESULTS 




427 


004562 


020327 


01^656 






CMP 


R3.JEDCHP3 


CHECK FOR END 




428 


004566 


001404 








BEQ 


DONE WITH GROUP TEST 




429 


004570 


005237 


002442 






INC 


IMRLOC 


►INCREMENT F1ASK BIT TO CLfcAR 




430 


004574 


000137 


004212 






JMP 


111$ 


TEST NEXT ISR BIT 




431 


004600 


005337 


002462 




11$: 


DEC 


GRPCNT 


TESTED BOTH GROUPS? 




432 


004604 


001406 








BEQ 


TST3 


;BR IF DONE 




433 


004606 


013700 


002422 






MOV 


DRCSCPO 


•SET\JP FOR GROUP 2 




434 


004612 


013701 


002426 






MOV 


DRCSD,R1 


-CSRC = CONTROL i :f iOUP 2 




435 
















•CSRD = DATA GROUP 2 




436 
437 
438 
439 
440 


004616 


000137 


004154 






JMP 


120$ ; 


•DO GROUP 2 












« . ************* ,-iw********* *******->, ******************************* 




(3) 










;'vTEST 


3 


TEST VECTOR ADDR 


MEM,LEV 0-7,BY0-3,r204-1774),GRPS 1,2 




(3) 










♦•*********t**************************************************ft** 




(2) 


004622 


000004 






TST3: 


SC n PE 








441 


004624 


C13700 


002412 






MOy 


DRCSA,R0 






442 


004630 


013701 


002416 






NOV 


DRCS8,R1 






443 


004634 


013702 
012737 


002412 






MCV 


DRC5A,k2 






444 


004640 


000002 


002462 




MOV 


#2,6RPCM 


;D0 TWO GROUPS 




445 


004646 


012737 


000001 


002472 


120$: 


MOV 


#1,BVNUM 


;INIT FOR 6VTE COUNT 




446 


004654 


004537 


011014 






JSR 


,>5,CLRCSR 


; CLEAR ALL CSRS 




447 


004660 


012737 


000340 


0024.6 




MOV 


•"VMA-VECVAL 


;START VECTOR LEVEL # BYVE COUNT 




448 


004666 


012704 


012636 




121$: 


rcnv 


X,CHP3,R4 


;EXPECTED ISR,IMR PATTERN 
; COUNTER FOR 0-7 LEVELS 




449 


004672 


012737 


0000 1C 


002466 




MOV 


" .LVLCNT 




450 


0O4 700 


012737 


000050 002442 




MOV 


-^ImjNRLOC 


;STORE SINGLE im CODE 




451 


0i/*706 


012737 


000130 


002446 




MOV 


,:>5IRR,IRRL0C 


; STORE SINGLE IRR CODE 




452 


004714 


012737 


000170 


002444 




MOV 


*CSISR,ISRLOC 


; STORE CLEAR SINGLE ISR CODE 




453 


004722 


004537 


011524 






JSR 


R5JRPCAT 
*112$,$LPERR 


.-RESTORE TRAP CATCHER 




454 


004726 


012737 


004742 


002110 




MOV 


;STORE SCOPE LOOP 


i 



CVDRD3 0RV11J DIAG TST 


PRT2 


MALY11 


B 3 

306(1063) 10-AUG-81 11:00 PAGE 


2-4 




CVDROB.I 


*11 10-AUG-81 


10*52 




T3 


TEST VECTOR ADDR MEM, LEV 


0-7, BYO-3, (204-1774), GRPS 1,2 




455 


004734 


012737 


ooc;?<;4 


002452 


111$: 


MOV 


*204,VECLOC 


/START AT VECTOR 204 




456 


004742 


106427 


O00340 




1125: 


MTPS 


0340 






457 


004746 


012706 


002100 






MOV 


*2100, SP 


;INIT STACK IN CASE OF ILLEGAL INT. 


LOOP 


'♦58 


004752 


042712 


001000 






BiC 


#BIT9,(R2) 


; CLEAR INTERRUPT ENABLE 




459 


004756 


004537 


011074 






JSR 


R5-CLRIRR 


; CLEAR IRR PEGS 




460 


004762 


112712 


000241 






M0V8 


;USED IN TEST OF GROUP 2 




461 
















/ARM GROUP 1 CHIP TO PASS 




462 
















; ENABLE TO GR0UP2 




463 


004766 


013703 


002452 






MOV 


VECL0CR3 


;GET VECTOR 




464 


004772 


010337 


002454 






MOV 


R3,VECPAT 






465 


004776 


006037 


002454 






ROR 


VF.CPAT 


/ROTATE VECTOR ADDR TWO RIGHT 




466 


005002 


006037 


002454 






ROR 


VECPAT 


;T0 WRITE VECTOR MEM ADDR. 




467 


005006 


012713 


011700 






MOV 


*INTBY4,(R3) 


/STORE VECTOR ROUTINE 




468 


005012 


012763 


000340 


000002 




MOV 


*340,2(R3) 


/STORE PSW 




469 


005020 


005037 


002436 






CLR 


JNTFLG 


/CLEAR INT. FLAG 




'VO 


005024 


013737 


002472 


002470 




MOV 


BYNUM,8YCNT 


/BYTE COUNTS OF 0-3 




471 


005032 


1 13710 


002456 






MOVB 


VECVAL,(RO) 


/PRESELECT VECTOR MEM ADDR 




47? 


005036 


113711 


002434 




113$; 


MOVB 


VECPAT, (R1) 


/WRITE VECTOR 




473 


005042 


005337 


002470 






DEC 


BYCNT 


/DONE WITH BYTE COUNT VALUE 




474 


005046 


001373 








HNE 


113$ 


/NO, LOAD VECTOR FOR NEXT BYTE COUNT 




475 


005050 


010037 


002122 






MOV 


R0,$8DADR 


/SAVE BUS ADDRESS 




476 


0050^4 


112710 


000060 






M0V8 


#SIMR, (RO) 


/SET ALL IMR BITS 




477 


005060 


113710 


002442 






M0V8 


IWLOC(RO) 


/CLEAR MASK ON SINdl E BIT 




478 


005064 


106427 


000000 






MTPS 


JPRO 






4/9 


005070 


1127,0 


000241 






M0V8 


*241,<R0) 


/LMD57 - ARM THE CHIP 




4?0 


005074 


005737 


002436 






TST 


JNTFLG 


/CHECK FOR INTERRUPTS 




481 


005100 


001401 








BFO 


1$ 






4C2 


005102 


104011 








ERROR 


11 


/ERROR. ILLEGAL INTERRUPT 




485 


C05104 


005037 


002436 




1$: 


CLR 


INTFLG 


/RESET INT. COUNTER 




48^ 


005110 


113710 


002446 






M0V8 


;rrluc,(ro> 


;SEY SINGLE IRR BIT 




485 


005114 


106427 


000340 






MfPS 


#PR7 






486 


005120 


005737 


002*36 






TST 


INTFLG 


/CHECK FOR NO INTERRUPTS 




487 


005124 


001401 








BEQ 


2% 






488 


005126 


104011 








ERROR 


11 


/ILLEGAL INTERRUPTS 




489 


005130 


005037 


002436 




2$; 


CLR 


INTFLG 


/CLEAR INT. COUNTER 




490 


005134 


106427 


000000 






MTPS 


rfPRO 






491 


005*. 40 


15276? 


000002 


000001 




BJS8 


*8IT1,1<R2> 


;SET I/E. EXPECT INTERRUPT 
/EXPECT 1 TO 4 INTERRUPTS 




492 


005146 


013737 


002472 


002124 




MOV 


BYNUM,$GDDAT 




49^; 
















/BASED ON BYTE COUNT VALUt 




494 


005154 


013737 


002436 


002126 




MOV 


INTFLG, SBDDAT 


/SHOULD HAVE 1 TO 4 INTERRUPTS 




495 
















/BASED ON BYTE COUNT VALUE 




496 


005162 


023737 


002124 


002126 




CMP 


SGDDAT, SBDDAT 






497 


005170 


001401 








BEQ 


3$ 






498 


005172 


104012 








FRROU 


12 


/INTERRUPT TEST ERROR 




490 


005174 


106427 


000340 




3$: 


MTPS 


*PR7 






500 


005200 


010137 


002122 




4$: 


MOV 


R1.SBDADR 


/READY TO READ ISR REG. 




501 


005204 


005037 


002126 






CLR 


SBDDAT 


/SET UP FOR BYTE READS 




502 


005210 


005037 


002124 






CLR 


SGDDAT 


;SET UP FOR BYTE EXPECTED 




503 


005214 


111437 


002124 






MUV8 


(R4). SGDDAT 


/EXPECTED DATA 




504 


005220 


112710 


000240 






MOVB 


#MISR,(RO> 
(R1), SBDDAT 


;LOAO MODE TO READ ISR 




505 


005224 


111137 


002126 






M0V8 






506 


005230 


023737 


002124 


002126 




CMP 


SGDDAT, SBDDAT 






507 


005236 


001401 








BEQ 


5$ 






508 


005240 


104006 








ERROR 


6 


/ISR ERROR 




509 


005242 


116437 


000001 


002124 


5$; 


MOVB 


l'R4), SGDDAT 


/STORE EKPfcUED 




510 


005250 


112710 


000u ! 44 






MUV8 


*MIMR,(RO) 


/LOAD MODE FOR IMR 





SEQ 00?J 



r 



CVDRDB DRV11J 
CVDRDB.P11 



DIAG TST PRT? 
10-AUG-81 10:52 



MACY11 30G(1063) 10-AUG-81 
T3 TEST VECTOR 



C 3 
11:00 PAGE 
ADDR MEM, LEV 



511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

5^9 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

(3) 



005254 
005260 
005266 
005270 
005272 
005276 
005302 
005306 
005314 
005316 
005320 
005324 
005330 
005334 
005342 
005344 
005346 
005352 
005356 
005362 
005366 
005374 
005376 
005400 
005404 
005410 
00541 > 
003420 

oos;;'2 

0054*: 
005430 
005432 
005436 
005440 
005444 
005450 
00S4S4 
005460 
005464 
005466 
005472 
005476 
005500 
005506 
005510 

005514 
005520 

005522 
005526 
005532 



111137 

023737 

001401 

104005 

005037 

112710 

111137 

023737 

001401 

104003 

005037 

112710 

111137 

023737 

001401 

104004 

005037 

113710 

112710 

111137 

023/37 

001401 

104006 

004537 

005737 

001404 

0227^7 

000403 

022737 
001402 
000137 
005724 
005237 
005237 
005237 
005237 
005337 
001402 
000137 
005237 
104407 
022757 
001402 
000137 

005337 
001406 
013700 
013701 
000137 



002126 
002124 



002124 
000250 
002126 
002124 



002124 
000254 
002126 
002124 



002124 
0024'- 4 
000240 
002126 
002124 



002126 



6$: 



002126 



7$: 



002126 



10$: 



002126 



011432 
017374 

000400 002452 



002000 002452 
004742 

002442 
002446 
002444 
00?. 56 
002466 

004734 
002472 

000400 002456 

004666 

002462 

002422 
002426 
004646 



11$; 

100$: 

12$: 



15$: 



14$: 



M0V8 

CMP 

BEQ 

ERROR 

CLR 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

CLR 

MOVB 

MOVB 

CMP 

BEQ 

PRROR 

CLR 

MOVB 

MOVB 

Move 

CMP 

BEQ 

ERROR 

JSR 

TST 

BEU 

CMP 

403 

CMP 

BEQ 
JMP 
TST 
INC 
INC 
JNC 
INC 

dec 

PPQ 

JMP 

JNC 

CKSWR 

CMP 

BEQ 

JMP 

DEC 
BEQ 

MOV 
MOV 
JMP 



(R1),$BDDAT 

$GD0AT,$BDDAT 

6$ 

5 

$GDDAT 

*MIRR,(RO) 

(R1),$BDDAT 

$GDDAT,$BDDAT 

7$ 

3 

SGDDAT 

MACR.(RO) 

(R1) Jbddat 

$GDDA7,$BDDAT 

10$ 

4 

SGDDAT 

ISRLOC,(RO) 

mi'SRARO) 

(R1.),$BDDAT 

SGDDAT, SBDDAT 

11$ 

6 

R5,RESTRP 

KXTFLAG 

100S 

#400,VECLOC 



*2000,VtCLOC 

12$ 

112$ 

(R4) + 

IMRLOC 

IRRLOC 

JSRLOC 

VECVAL 

LVLCNT 

13$ 

111$ 

BYNUM 

^400, VECVAL 

14$ 

121$ 



GRPCNT 

TST4 

DRCSiV<0 

DRCSD.R1 

120$ 



2-5 

0-7,BY0-3, (204-1 774), GRPS 1,2 

;JMR ERROR 

;LOAD MODE BITS FOR 1RR 



;IRR ERROR 



SEQ 0028 



;ACR ERROR 

;CLEAR SINGLE ISR BIT 
;LOAD MODE TO READ ISR 



ISR REG ERROR 

RESTORE VECTOR JUST TESTED 

KXT11 ?? 

BR IF NOT 

YES, FINISHED P04-374 ?? 

SKIP NEXT TO FIND OUT 



;GPA 
;GPA 
;GPA 
;GPA 
;GPA 



FINISHED? 

FINISHED VECTORS 204-1774? 

JfEST NEXT VECTOR ADDR 

INDEX EXPECTED ISR AND IMR PATTERN 

STORE CLEAR FOR NEXT MASK BIT 

STORE SET FOR NEXT IRR BIT 

STORE CLEAR FOR NEXT ISR BIT 

SETUP TO TEST NEXT VECTOR LEVEL 

FINISHED LEVELS 0-7 

YES, CHECK BYTE COUNT END 

NO, DO NEXT LEVEL 

INDEX BYTE COUNT 

LOOK FOR SWITCH CHANGE REQUEST 

FINISHED ALL BYTE COUNTS 0-3 

FINISHED TWO GROUPS? 

DO NEXT BYTE COUNT FOR 

LEVELS IW 

FINISHED TWO GROUPS? 

;8R If DONE 

CSPC - CONTROL GROUP 2 

CSRD = DATA GROUP 2 

DO GROUP 2 FOR BYTE COUNTS 0-3 

AND LEVELS 0-7 FOR EACH BYTE CUUNT. 



••A************ *■ ************************************************* 

;*TEST 4 TEST VECTOR ADDR MEM,LVLS 0-7,BY0-3, (0-200)GRPS 1,2 



n 



CVDRDB DRV11J 
CVDRDB.P11 



DIAG TST PRT2 
10-AUG-81 10:52 



MACY11 30G(1063) 10-AUG-81 
T4 TEST VECTOR 



3 
11:00 PAGE 2-6 
ADDR MEM,LVL5 0-7, BY0-3, (0-2Q0)GRPS 1,2 



SEQ 0029 



(3) 

(2) 005536 

566 0C3540 

567 005544 

568 005550 

569 005554 

570 005562 

571 005570 

572 005574 

573 005602 

574 005606 

575 005614 

576 005622 

577 005630 

578 005636 

579 005642 

580 005646 
58' 005652 

582 005656 

583 005662 
584 

585 

586 005666 

587 005672 

588 005676 

589 005702 

590 005706 

591 005712 

592 005716 

593 005724 

594 005730 
595 

596 005736 

597 005742 

598 U05746 

599 005752 

600 005754 

601 005760 

602 005764 

603 005770 

604 005774 

605 006000 

606 006004 

607 006006 

608 006012 

609 006014 

610 006020 

61 1 006024 

612 006030 

613 006034 

614 006040 

615 006Gh2 

616 006046 

617 006050 

618 00605* 

619 006060 



000004 
013700 
013701 
013702 
012737 
012737 
004537 
012737 
012704 
012737 
012737 
012737 
012737 
005037 
106427 
012706 
0427.2 
004537 
112712 



013703 
004537 
010337 
006037 
006037 
012713 
012763 
005037 
013737 

113710 

113711 

005337 

001373 

010037 

112710 

113710 

106427 

112710 

005737 

001405 

004537 

104011 

004537 

005037 

113710 

10642 7 

00573/ 

001405 

004537 

104011 

004537 

005037 

106427 



002412 
002416 
002412 
000002 
000001 
0110V* 
000340 
012636 
0000 1 
OOOO'iO 
0C0130 
005642 
002<»52 
000340 
00? 100 
OO'i 000 
Oi 1074 
000241 



002452 
012024 
002454 
002454 
002454 
012124 
000340 
002436 
002472 

002456 
002454 
002470 

002122 
000060 
002442 
000000 
000241 
002436 

011374 

012024 
002436 
002446 
000340 
002436 

011374 

012024 
002436 
000000 



;;*********w*******i. ************ ********* ** ************** ******** 



002462 
002472 

002456 

002466 
002442 
002446 
002110 



TST4: 



120$: 



121$: 



111$: 
112$: 



000002 
002470 



113$: 



IS: 



2$: 



SCOPE 

MOV DRCSA,RO 

MOV DRCSB,R'i 

MOV DRCSA,R2 

MOV #2,GRPCNT 

MOV #1,BYNUM 

JSR R5,CLRCSR 

MOV #PVMA,VECVAl 

MOV #8GCHP3,R4 

MOV #8.,LVLCNT 

MOV #CSIMR,IMRLOC 

MOV #SSIRR,1RRL0C 

MOV #112$,$LPERR 

CLR VECLOC 

MTPS #340 

MOV #2100, SP 

BJC #8IT9,(R2) 

JSR R5,CLRIRR 

MOVB #241, (R2) 



MOV VECL0C,R3 

JSR R5,CAT200 

MOV R3, VECPAT 

ROR VECPAT 

ROR VECPAT 

MOV *'INTSR3,(R3) 

MOV #340,2(R3) 

CLR INTFLG 

MOV BYNUM,BYCNT 

MOVB VECVAL.(RO) 

MOVB VECPAT, (R1) 

DEC BYCNT 

BNF 113$ 

MUV R0,$8DADR 

MOVB #SIMR,(RO) 

MOVB IMRLOC(RO) 

MTPS #PR0 

MOVB #241, (RO) 

TST JNTFLG 

BEQ 1$ 

JSR R5,FRMBUF 

ERROR 11 

JSR R5,CAT200 

CLR INTFLG 

MOVB IRRLOC(RO) 

MTPS #PR7 

TST INTFLG 

BEQ 2$ 

JSR R5,FRMBUF 

ERROR 11 

JSR R5.CAT200 

CLR INTFLG 

MTPS #PRO 



DO TWO GROUPS 

1NIJ FOR FIRST BYTE COUNT 

CL^AR ALL CSRS 

START VECTOR LEVEL 0,BYTE COUNT 

JSR,JMR PATTERN 

START LEVEL COUNT 0-7 

STORE CLEAR SINGLE IMR BIT CODE 

STORE SET SINGLE IRR BIT CODE 

LOOP RETURN 

START AT VECTOR 

INN STACK IN CASE OF ILLEGAL INT, LOOP 

CLEAR INTERRUPT ENABI F 

CLEAR IRR REGS 

USED IN TEST OF GROUP ? 

ARM GROUP 1 CHIP TO PAS 4 -' 

ENABLE TO GROUP 2. 

GET VECTOR 

STORE TRAP CATCHF-R ' : .''R r- -200 



i •<• 



ROU'fMNL 



V>l-A. 



ROTATE VETOR AD'-R 

TO WRITE VECTOR HE 

STORE VECTOR 

STORE PSW 

CLEAR INK FLA*': 

BYTE COUNT Or f )v 

FOR I TO 4 VECTCRJ 

PRESELECT VECTOR W 

WRITE VECTOR 

DO 1 TO 4 VECTORS 

WRITF VECTORS BASED 

SAVE BUS ADDRESS 

SET ALL IMR BITS 

CLEAR MASK ON SINiiLf: UJiT 

;LMD57 - ARM TK'i .i\l r 
;CHFCK TOR INTERRUPT. 

RESTORE 0-202 
ERROR, ILLEGAL 1NTKRPUPT 
RESTORE TRAP CATCHER 
RESET INT. COUNTS 
SET SINGLE IRM B-" 

; CHECK FOR NO INTEH/WYs 

RESTORE 0-202 
ILLEGAL INTERRUPTS 
RESTORE TRAP CVf'*::,fi 
CLEAR INT, COUNTtfK 



GMT 



AP»>R 



n,M BYTE COUNT 



CVDRDB DRV11J 
CVDRDB.P11 



DIaG TST PRT2 
10-AUG-81 10:52 



MACY11 30GC1063) 10-AUG-81 
T4 TEST VECTOR 



E 3 
11:00 PAGE 2-7 

ADDR MEM.LVLS 0-7, BYO-3, (0-200) GRPS 1 



SEQ 0030 



620 006064 

621 006072 
622 

623 006100 

625 006106 

626 0061 U 

627 006116 

628 006122 

629 0061 24 

630 006130 

631 006134 

632 006140 

633 006144 

634 0061 50 

635 006154 

636 006160 

637 006164 

638 006172 

639 006174 

640 006200 

641 006202 

642 006206 

643 006214 

644 006220 

645 006224 

646 006232 

647 006234 

648 006240 

649 006242 

650 006246 

651 006252 

652 006256 

653 006262 

654 006270 

655 006272 

656 006276 

657 006300 
653 00*304 

659 006310 

660 006314 

661 006320 

662 006326 

663 006330 

664 006334 

665 006336 

666 006342 

667 006346 

668 006352 

669 006356 

670 006362 

671 006370 

672 006372 

673 006376 

674 006400 

675 006404 



152762 
013737 



000002 
002472 



013737 002436 



0217 5 f 

001405 

004537 

104012 

004537 

106427 

010137 

005037 

005037 

111437 

112710 

111137 

023737 

001405 

004537 

104006 

004537 

116437 

112710 

111137 

023737 

001405 

004537 

104005 

004537 

005037 

11*710 

111137 

023} 37 

001405 

004537 

1040C3 

004537 

005037 

112710 

111137 

023737 

001405 

004537 

104004 

004537 

005037 

112710 

112710 

111137 

023737 

001405 

004537 

104006 

004537 

004537 



uut.12': 



011374 

012024 
000340 
002J22 
002126 
002124 
002124 
000240 
002126 
002124 

011374 

012024 
000001 
000244 
002126 
002124 

011374 

012024 
002124 
000250 
002126 
002124 

011374 

012024 
002124 
000254 
002126 
002124 

011374 

012'*?4 
002 1 24 
000160 
000240 
002126 
002124 

011374 

012024 
01 1 762 



000001 
002124 

002126 

002126 



3$: 
4$: 



W J126 

002124 5$: 
002126 

6$: 
002126 

7$: 

002126 

10$: 

002126 

11$: 



BISB 
MOV 

MOV 

QKP 

BEQ 

JSH 

ERROR 

JSR 

MTPS 

MOV 

CLR 

CLR 

M0V8 

MOVB 

MOVB 

CMP 

BEQ 

JSR 

ERROR 

JSR 

M0V8 

MOVB 

MOVB 

CMP 

BEQ 

JSR 

ERROR 

JSR 

CLR 

MOVB 

MOVJ 

CMP 

BEQ 

JSR 

ERROR 

JSR 

CLR 

MOVB 

MOVB 

CMP 

BEQ 

JSR 

ERROR 

JSR 

CLR 

MOVB 

MOVB 

MOVB 

CMP 

BEQ 

JSR 

ERROR 

JSR 

JSR 



*8J11,'i<R2) 

BYNUM,$CDDAT 

INTFLG,$3DDA T 

SGDDAT, SBDDAT 
3$ 

K5.FRMBUF 

12 

R5.CAT200 

*PR7 

R1,$8DADR 

SBDDAT 

SCDDAT 

(R4), SGDDAT 

*MISVRO> 
(R1) ,$B r%r >n. 
SGDDAT, SBDDAT 
5$ 
R5,FRM8UF 

R5,CAT200 

1<R4), SGDDAT 

miHRARO) 

<R1 >, SBDDAT 

$GDD AT. SBDDAT 

6$ 

R5,FRM8UF 

5 

R5,CAT200 

SGDDAT 

*MIRR,(RO) 

(R1). SBDDAT 

SGDDAT, SBDDAT 

7% 

R5,FRM8UF 

R5,CAT200 

SGDDAT 

#MACR,(RO) 

(R1>, SBDDAT 

SGDDAT, SBDDAT 

10$ 

R5,FRMBUF 

R5,CAT200 

SGDDAi 

*CJSR,<R0) 

*MISR,(RO) 

<R1>, SBDDAT 

SGDDAT, SBDDAT 

11$ 

R5,FRMBUf 

6 

R5,CV200 

R5,r<ES20G 



/SET J/E. EXPECT INToWPT 
; EXPECT NUMBER OF IHTFRRUPTS 
PQUAL TO BYTE m.W . 
/ SHOULD HAV5 NUW?PR OF INTERRUPTS 
/EQUAL TO BYTE COUNT, 



/RESTORE 0-20? 
/INTERRUPT TEST cN.VGfl 
;kESTO.*p TRA! CATCH!;* £ 



tn 



ion 



;R C APY K PFAD 
/SET UP FOR BYTE 
/SET UP FOR BYT( : ,. 
/EXPtCTE.D DATA 
/LOAD MODE TO RffAD 



Rfcb. 

»* c Ar-s 

,. < 3 KCTED 



ISR 



/RESTORE 0-200 
/ISR ERROR 

/RESTORE TRAP CATCHi-R 
/STORE EXPECTED 
/LOAD MODE FOR J«R 



/RESTOR: 0-202 
;IMR ERlt'OR 
/RESTORE CATCHER 

/LOAD MODE BITS FOR U\R 



RESTORE 0-20: 

IRR ERROR 

RESTORE TRAP CAVlMfcR 



/RESTORE 0-202 

;ACR ERHOR 

/RESTORE TRAP l.rtUHER 

/CLEAR ISR 

/LOAD MODE TO READ ISR 



RESTORE fi-202 
ISR REG ERROR 
RESTORf: TRAP i.VHH'-'R 
RESTORE Vb'CTuR JUbT TESTED 



CVDRDB 
CVDRDB 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

(3) 

(3) 

(2) 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 

717 

718 

719 

720 

721 

722 

723 

724 

725 

726 

727 

728 



DRV11J D1AG TST PRT2 
P11 10-AUG-81 10:52 



006410 
006414 
006422 
006424 
006430 
006432 
0C6436 
006442 
006446 
006452 
006454 
006460 
006464 
006466 
00t>474 
006476 

006502 
006506 
006510 

006514 
006520 



004537 
022737 
001402 
000137 
005724 
005237 
005237 
005237 
005337 
001402 
000137 
005237 
104407 
022737 
001402 
000137 

005337 
001406 
013700 

013701 
000137 



011374 
000204 

005642 

002442 
002446 
002456 
002466 

005636 
002472 

000400 

005602 

002462 

002422 

002426 
005562 



006524 004537 011374 



006530 000004 



006532 
006536 
006542 
006546 

006552 
006560 
006564 
006570 

006574 
006600 
006604 
00661 
006614 
006620 
006624 
006630 
006634 
006640 
006644 
006650 



004537 
004537 
004537 
004537 

012737 
004537 
012704 
004537 

012705 

013700 
013701 
013702 
013703 
010037 
112710 
112712 
112710 
005037 
106427 
112710 



011014 
011334 
011524 
011300 

000377 
011074 
017160 
011132 

012210 
002412 
002422 
002416 
002426 
C02122 
000300 
000377 
000040 
002*36 
000000 
000120 



MACY11 



002452 



F 3 



002456 



002456 



30GC1063) 10-AUG-81 11:00 PAGH 


2 3 


14 


TEST VECTOR AODR MEN,l.VU 


> 0-7,BVC-3,(0-20'j)GRPS 1,2 




JSR 


R5,FRKBUF 
«04,VECLOC 


RESTORE 0-200 TO SVSMAC CONTROL 




CMP 


FINISHED? 




BEU 


12$ 






JMP 


112$ 


TEST NEX* VECTOR ADDR 


12$: 


TST 


<R4) + 


JUDEX EXPEfTFD JhX Ml IM PATTERN 




INC 


IMRLOC 


S)'ORE CLEAR WrNV 1MR HIT 




INC 


IRRLOC 


STORE SET KR:T IRR PJT 




INC 


VECVAL 


SETUP TO TEST MAT VFITOR LEVEL 




DEC 


LVLCNT 


finished levels o- 7? 




SEQ 


13$ 


YES,CMEC,v BY7*: uH.W END 




JHF 


111$ 


NO,i)C> NEXT LWH ,SAtfu DVTE COUNT 


13$: 


INC 


BYNUM 


mm byte ciuwr 




CKSWR 




LOO.x FOR 5VIUH CHMGF 




CMP 


rf4C0, VECVAL ! 


FINISH^ ALL ,*'JUR :Vit COUNTS 




BEO 


14$ 


YE c , FINISHED (WJP 




MP 


121$ 


'NO, DO NE.<F BVTE ^j'.'NT WITH 
LEVELS 0-7. 


14$: 


DEC 


GRPCNT ! 


•FINISHED BOTH r r <UU. ! ' i AND GROUP 2? 




BEC 


15$ 


'YES, BOTH GKOIJPS ^Siiitf 




MOV 


DRCSCRO 


•NO,.:ST (jflUUP i> 

•CSRC " CONTROL UKOI.'P 2 




MOV 


DRCSD,R1 


•CSRD - DATA SMOU" i.' 




JttP 


120$ 


•RETURN AND VfSI UMutt! 
:FOR BYTE COLUU ("i-j ANO 
•LEVELS 0-7 FOR RL'K H v i£ COUNT. 


15$: 


JSR 


R5,FRMBUF 


; RESTORE 0-20.:, FX IT TEST 


;;**t*****x**********t**************w*-tw** tfrAViV": *■■.■* ..************. 


;*TE$T 


5 


TEST VECTOR ADDR 


UNIQUENESS itt H;."r!) rtupE FOR 6RPS 1, 


• '***i|fH*******m***H*+************H*+^*^wn-viA*?A*iifH******** 


TST5: 


SCOPE 




;BYTF COUif » 4 
;LEVEL> - 0-7 




JSR 


R5,CLRCSR 


; CLEAR ALL ':$;<.> 




JSR 


R5,CLRBF 


.'CLEAR VCCK"< WK W AKFA 




JSR 


R5/FRPCAT 


;RESTORE TRAP CAfC'SK 




JSR 


R5,STRVEC 


; STORE Vt'CTPR MtfA .\ip-fi74 
;WITH INT, SEEV tu:UT,NES 




MOV 


#377. VECVAL 


; VECTOR MEM F ,:NAL VALUE 




JSR 


R5,CLRIRR 


; CLEAR IRR REf.a 




MOV 


#VBUF,R4 


;VECTOR ADDRLSS 'M.-'ji 




JSR 


R5,VECFIL 


;FJLL VEIIOR Mt : »*C.'<V i CH GROUPS 1,2 
;JITH VECTORS 50C"'>\ 




MOV 


*SETVEC f R5 
DRCSA,RO 


; R5 POINTS 10 ClVtfUW HANDLER ;;GPA 




MOV 


; GROUP 1 CSR 




MOV 


DRCSC,R1 


;GROUP 2 CSR 




MOV 


DRCSB,R2 






MOV 


DRCSD,R3 






MOV 


R0,$8DADR 


;STORE BUS ADWttrrs 




MOVB 


#PACR,(RO> 


;PRESELECT GPI ;..^ ■ itt WRITING 




MOVi^ 


*377, (R2) 


;SET ALL AIR ii!", . -.JV 




MOVB 


#CJMR,(RO) 


; CLEAR ALL iHTi 3H'S »M 




CLR 


INTFLG 


; CLEAR INT. rt Ml 




MTPS 


*PR0 






MOVB 


*SIRR,(RO) 


;SET ALL IRR BIT:'. 



SEQ 0031 



CVORDB DRV11J 
CVDRDB.P11 



DIAG 1ST PRT2 
10-AUG-81 10:52 



MACY11 30GC1063) 10-AUG-81 
T5 TEST VECTOR 



6 3 

11:00 PA6F 2-9 
ADDR UNIQUENESS IN 



FJXEi) 



MODt" ror: GRPS 1,2 



SEG 0032 



729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

If si 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

?63 

7^4 

765 

766 

767 

768 

769 

770 

771 

,"2 
773 
77t> 
775 
776 
777 
778 
779 
780 
781 
782 
781 
784 



006654 

006660 

006664 

006670 

006672 

006674 

006700 

006704 

006710 

006714 

006720 

006724 

006/30 

006734 

006740 

006742 

006744 

006750 

006754 

006762 

006770 

006776 

007002 

007010 

007012 

007014 

007022 

007026 

007032 

007040 

007046 

007050 

007052 

007060 

007064 

007070 

007076 

007104 

007106 

007110 

007114 

007120 

007124 

007130 

007134 

007142 

C07144 

007146 

007152 

007156 

007164 

007166 

007170 

007174 

007200 

007206 



112710 

106427 

005737 

001401 

104011 

005037 

112711 

112713 

112711 

106427 

112711 

112711 

106427 

005737 

001401 

104011 

U05037 

106427 

15?760 

012737 

013737 

106427 

02373/ 

001401 

104012 

012737 

010037 

011037 

042737 

023737 

001401 

104002 

012737 

010137 

011137 

042737 

023737 

001401 

104002 

010237 

005037 

005037 

112710 

111237 

023737 

001401 

104006 

112710 

111237 

023737 

001401 

104005 

112710 
111237 
023737 
001401 



000241 
000340 
002436 



002436 
000300 
000377 
000040 
000000 
000120 
000241 
000340 
002436 



002436 
CJOOOO 
000002 
000100 
0U2436 
000340 
002124 



101710 
C02122 
002126 
000007 
002124 



000310 
002122 
002126 
000007 
002124 



002122 
002126 
002124 
000240 
002126 
002124 



000244 
002126 
002124 



000250 
002126 
002124 



000001 
002124 
002126 

002126 



002 i 24 3$: 



MOVB #241, (RO) 

MTPS *340 

TST INTFLG 

BEQ 1$ 

ERROR 11 

1$: CLR INTFLG 

MOVB #PACR,<R1) 

M0V8 #377, (R3) 

MOVB #CIhR,(R1) 

MTPS #PRO 

MOVB #SIRR,(R1) 

MOVB #241, (R1) 

MTPS MPR7 

TST INTFLG 

BEQ 2$ 

EPUR 11 

2$: CLR INTFLG 

MTPS #PRO 

BISB #8IT1J(R0) 

MOV #64.,*GDDAT 

MOV INTFLG, SBDDAT 

MTPS MPH7 

CMP 5GDDAT,$BDDAT 

BEQ 3$ 

ERROR 12 

MOV #101710,$GDDAT 

MOV K?,*™ADR 

MOV <R0),$£ODAT 

BIC #7,S8DDAr 

CMP $GDDAT,$BDDAT 

BEQ 4$ 

ERROR 2 

MOV #310,SGDDAT 

MOV R1,$8DADR 

MOV <R1),$BPDAT 

BIC #7,S8DDAT 

CMP SGDDAT,$BDDAT 

BEQ 5$ 

ERROR 2 

MOV R2,S8DADR 

CLR S8DDAT 

CLR SGDDAT 

MOVG #MISR,(RO) 

MOVB <R2),$BDDAT 

CMP $GDDAT,$BDDAT 

BEQ 6$ 

F.ROR 6 

6$: ,iOVB #MIMR,(RO) 

M0V8 <R2),$BDDAT 

002126 CW SGDDAT,$BDDAT 

3F0 7$ 

ERROR 5 

7$; MOVB #MJRR 1 (RO) 

MOVB (R2),$BDDAT 

002126 CMP $GDDAT,$BDDAT 

BEQ 10$ 



002126 
002126 



002124 4$: 



002126 
002126 



0021*6 



5*: 



;LMD57 - ARM THE CHIP 

;CHECK FOR NO IM'thM* IS 

; ILLEGAL INTERRUPT 

;PRESELtCT GROUPS I'd.* WRiTiNG 
;ALL ACR BITS SET ftK- 
; CLEAR ALL IMR BUS C '?. 

;SET ALL 1RR BITS 
;LMD57 - ARM THE ZP.i? 

; CHECK FOR NO INTERRUPTS 
.•ILLEGAL INTERRUPT 



;SET INT ENAPLE ,H>.i-r ;V INTERRUPT* 

;EXPZC> 64 INTERRUPT 

; SHOULD HAVE 6* INT*: 'JPTS 



;. INTERRUPT TEST ERRDP 
;RDY,DIR,J/F, CHIP - ;*:X 
;CSRA 

;CLEAR UNDEFINED BITS 



;CSPA REG EPMOR 
;STUIE EXPECTED 
;CSRC 

•CLEAR UNDEFiNLU OJV 



;CSRC ERR'm 
;CSRB ADDRESS 



;READ ISR 



;ISR ERROR. GPi 
;MODE 61 TS M)M irtR 



;IMR ERROR, <if'i 
;MODE BITS FOR 1RR 



.J 



CVDRDB DRV11J 
CVDRDB.P11 



OIAG TST PRT2 
10-AUG-81 10:52 



MACY11 306(1063) 10-AU6-81 
T5 TEST VECTOR 



H 3 

11:00 PAGE 2-10 

ADDR UNIQUENESS W 



FIXED KQDh KUrt GRPS 1,2 



$£Q 0033 



785 007210 

786 007212 

787 007220 

788 007224 

789 007230 

790 007236 

791 007240 

792 007242 

793 007246 

794 007252 

795 007256 

796 007262 

797 007266 

798 007274 

799 007276 

800 007300 

801 007304 

802 007310 

803 007316 

804 007320 
805 

806 00 7 322 

807 00^326 

808 007332 

809 007340 

810 007342 

811 007344 

812 007/>:0 
313 007356 

814 007362 

815 G07370 

816 007372 

817 007374 

818 007400 

819 007404 

820 007412 

821 007416 

822 007422 

823 007430 

824 007432 

825 007434 

826 007442 

827 007446 

828 007450 

829 007456 

830 007460 

831 007466 

832 007466 

833 007472 

834 007474 
835 

836 
837 
838 
(3) 
(3) 



104003 
012737 
112710 
111237 
023737 
001401 
104004 
005037 
005037 
010337 
112711 
111337 
023737 
001401 
104006 
112711 
111337 
023737 
001401 
104005 

112711 

111337 

023737 

001401 

104003 

112711 

012737 

111337 

023737 

001401 

104004 

012702 

012704 

012737 

010437 

011437 

023737 

001401 

104007 

062737 

005737 

001407 

023727 

103403 

012737 

062704 
005302 
001346 



000377 
000254 
002126 
002124 



002124 
002126 
002122 
000240 
002126 
002124 



000244 
002126 
002124 



000250 
002126 
002124 



000254 
000377 
002126 
002124 



000100 
017160 
000^00 
002122 
002126 
002124 



000004 
017374 

002124 

000300 

000002 



002124 
002126 



IOSj 



11$: 



002126 



002126 



12$: 



002126 

002124 
002126 

002124 

002126 

002124 

000400 
002124 



13$: 



14$: 



15$: 



16$: 



17$: 



1000$: 



ERROR 

MOV 

M0V6 

Move 

CMP 
BEO 
ERROR 

cm 

CLR 

MOV 

M0V8 

M0V8 

CMP 

BEO 

ERROR 

MOVB 

M0V8 

CMP 

BEO 

ERROR 

MOVB 

MOVB 

CMP 

BEQ 

ERROR 

MOVB 

MOV 

MOVB 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BEQ 

ERROR 

ADD 

TST 

BEQ 

CMP 

BLO 

MOV 

ADD 
PEC 
BNE 



#377,$GDDAT 

#MACR,(R0> 

(R2),$BDDAT 

$GDDAT,$BDDAT 

11$ 

4 

$GDDAT 

$BDDAT 

R3,$BDADR 

*MISR, <R1> 

<R3},$8DDAT 

$GDDAT,$BDDAT 

12$ 

6 

.?MIMR,(R1: 

(R3> -$BDDAT 

$GDDAT,$Bl)DAT 

13$ 

5 

*MIRR,(R1> 

<R3),$BDDAT 

SGDDAT,$BDDAT 

14$ 

3 

*MACR,(R1) 

*377,$GDDAT 

(R3).*BDDAT 

SGDDAT,$BDDAT 

15$ 

4 

064., R2 

#VB'JF,R4 

*300.$GDDAT 

R4 f $eDADR 

(R4),$8DDAT 

$GDDAT TRDDAT 

17$ 

7 

#4.SGDDAT 

KXTFLAG 

1000$ 

$GDDAT,#400 

100C$ 

#300,$GDDAT 

#2 R4 

R2 

16$ 



JRR ERROR 
EXPECTED ACH 
READ ACR 



;ACR ERROR 



;CSRD ADDRESS 
;READ ISA ,iaP2 



;ISR ERROR, GP1 
;RhAD I MR GF2 



;JMR ERROR, GP2 

;READ IRR 



;IRR FRR0R.GP2 
;REAO ACR 



;ACR ERROR, GP2 

; VECTOR BUFFER 

;START WITH FIRST VflTOR 300 

; VECTOR BUFKER ADDTtSS 



; VECTORED PHUHFRLY 

; VECTOR AflPR Mh'ri ERROR 

; KXT11 ?? 

; BR r F NOT 

; YES, REACHED iiMTOR 400 ?? 

; NOT YET, CONTiWr 

; YES, RE5fc T hXnCTiO TO 300 



NEXT BUFFER ADWES . 
COMPLETED 6<t PIJrffN CHECKS? 

CHECK NEN'i VfCV,^ Wf.'ER LOCATION 
THAT WAS STttEL' i r YHE INTERRUPT 
SERVICE ROUTJNfi:. 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 



;*TEST 6 TEST VECTUR ACDR UM QUE-. 'ESS IN R^- 

••***********************>***************** ****!'* *\ ************** 



************ 

Mi MODE FOR GRPS 1,2 



CVDRDB DRV11J 
CVDRDB. P11 



D1A6 TST PRT2 
10-AUG-81 10:52 



MACY11 30GC1063) 10-AUG-81 
T6 TEST VECTOR 



I 3 

11:00 PAGE 2-11 
ADDR UNIQUENESS IN 



ROTATING WODt FuR GRPS 1,2 



SEG 0034 



(2) 007476 

839 

840 

841 007500 

842 007504 

843 007510 

844 007514 
845 

846 007520 

847 007526 

848 007.532 

849 007536 
850 

851 007542 

852 007546 

853 007552 

854 007556 

855 007562 
356 007566 

857 007572 

858 007600 

859 007604 

860 007610 

861 00761 4 

862 007620 
86j 007624 

864 007630 

865 007634 

866 007640 

867 00/642 

868 007644 

869 007650 

870 007654 

871 007660 

872 007664 

873 007670 

874 007674 

875 007700 

876 007704 

877 007706 

878 007710 

879 007714 

880 007720 

881 007726 

882 C07734 

883 007742 
834 007746 
885 007754 
8*6 007756 
88? 007760 

888 007764 

889 007770 

890 007774 

891 007776 

892 010002 

893 010010 



000004 



004537 011014 

004537 011334 

004537 011524 

004537 011300 



012737 
004537 
012704 
004537 

012705 

013700 

013701 

013702 

013703 

010037 

012737 

112710 

112710 

005037 

106427 

112710 

112710 

106427 

005737 

001401 

104011 

005037 

112711 

112711 

106427 

112711 

112711 

106427 

005737 

001401 

104011 

00*037 

106427 

152760 

012737 

013737 

106427 

023737 

001401 

104012 

112710 

112710 

005337 

001345 

112710 

012737 

005037 



000377 
011074 
017160 
011132 

012210 
002412 
002422 
002416 
002426 
002122 
000010 
000201 
000040 
002436 
000000 
000120 
00024 I 
000340 
002436 



002436 
000201 
000040 
000000 
000120 
000241 
000340 
002436 



002436 
000000 
000002 
000004 
002436 
000340 
002124 



000140 
000120 
002474 

000100 
000010 
002436 



002456 



002474 



TST6: SCOPE 



JSR 
JSR 
JSR 
JSR 

MOV 
JSR 
MOV 
JSR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOVB 

M0V8 

CLR 

MTPS 

M0V8 

M0V8 

MTPS 

TST 



1$: 



2$: 



000001 
002124 
002126 

002126 



100$ 



002474 



101$: 



&EG 

ERRUR 

CLR 

MOVB 

M0V8 

MTPS 

MOVB 

MOVB 

MTPS 

TSi 

BEG 

ERROR 

OR 

MTPS 

B1SB 

MOV 

MOV 

MTPS 

rMP 

BEG 

ERROR 

MOVB 

MOVB 

DEC 

BNE 

M0V8 

MOV 

CLR 



R5,CLRCSR 
R5,CLR8F 
R5,TRPCAT 
R5,STRVEC 

#377,VECVAL 
R5,CLRIRR 
#V8UF.R4 
R5,VECFIL 

#SETVCC,R5 
DRCSA,RO 
DRCSCR1 
DRCSB,R2 
DRCSD.R3 
R0,$8DADR 
#8. -LVLSAV 
#201, (RO) 

#r:iMR,(RO) 

INTFLG 

.♦PRO 

#SIRR,(RO) 
#241, (RO) 
#340 

INTFLG 

1$ 

11 

INTFLG 

#201, (RD 

#CIMR,(R1) 

#PRO 

#SIRR, <R1) 

#241, (R1) 

#PR7 

INTFLG 

2$ 

11 

INTFLG 

#PRO 

#8IT1,1(ftO) 

#4,$GDDAT 

INTFLG, $BDDAT 

MPR7 

SGDDAT,$BDDAT 

100$ 

12 

#iHPISR,(RO) 

#SIRR,(RO) 

LVLSAV 

2$ 

#CJRR,<RO) 

#8., LVLSAV 

INTFLG 



BYTE COUNT - 4 
LEVELS r 0-? 
CLEAR ALL CSRS 
CLEAR VECTOR Eil.'-Ft'R ARfA 
RESTORE TRAP f:\Tttft.? 
STORE VECTOR MtA ?.00~674 
WITH INT. ScM SdjTINES 
VECTOR MEM F/NrtL VALUE 
CLEAR IRR RtG*:> 
VECTOR ADDRESS BI^-rJH 
FIH VECTOR MEMRV FOR GROUPS 1,2 
WITH VECTORS 300-6V4 
R5 POINT* '0 wmw HANDLER. ;;GPA 
GROUP 1 fSR 
GROUP 2 CSR 



STORE BUS ADttCaa 
COUNTER FOR 7 i.EVi-i..-; 
ROTATING PK10RJTV o'ROUP 1 
CLEAR ALL IMR BIT' GP1 
CLEAR INT. FLA', 

SET ALL IRff GITS 
LMD57 - AM THE O'lP 

CHECK FOR NO INIH.nUPTS 

ILLEGAL INTERRUPT 

ROTATING PRIORI!"! <U( 'JROUP 2 
CLEAR ALL 1HR BUS < : P2 

SET ALL IRR BUS 
I.MD5. 7 - ARM THi: Oil* 

CHECK FOR NO INTL. JiUPTS 

ILLEGAL INTERRUPT 



SET INT. ENABLE, l : VrrT INTERRUPTS 
EXPECT 4 INTERRUr'i! 
SHOULD HAVE <> JiWiKWJPTS 



INTERRUPT TEST r.RkCA 
CLEAR HIGHLIT WiiiJUTY ISM 
SET ALL IRR BUS 
DONE 8 LEVELS CROW* I 
DO NEXT iW. IH P.JIATION 



clear irk en; m) 

DO 8 LEVELS, (KlUP 

CLEAR INT HAG 



UP 1 



CVDRDB DRV1U 
CVDRDB.PI1 



DIAG TST PRT2 
10-AUG-81 10:5? 



MACY11 30o(1063) 10-AUG-81 
T6 TEST VECTOR 



o 3 

11. ?0 PAGE 
ADDR UNIQUENESS 



2-12 



IN ROI.-. IHH MODt FOR 6RPS 1,2 



SEQ 0035 



894 

895 

896 

89? 

898 

899 

900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 



010014 

010020 

010026 

01 0034 

010040 

010046 

010050 

010052 

010056 

010062 

010066 

010070 

010074 

010102 

010106 

010112 

010120 

010126 

010130 

010132 

010140 

010144 

010150 

0(0156 

010164 

010166 

010170 

010174 

010200 

010204 

010210 

010214 

010222 

010224 

010226 

010232 

010236 

010244 

010246 

010250 

010254 

010260 

010266 

010270 

010272 

010276 

010302 

010310 

010312 

010314 

010320 

010324 

010330 

010336 

010340 

010342 



10642? 

012737 

013737 

106427 

02*5737 

001401 

104012 

112711 

112711 

005337 

001350 

112711 

012737 

010037 

01 i 037 

042737 

023737 

001401 

104002 

012737 

010137 

011137 

042737 

023737 

001401 

104002 

010237 

005037 

005037 

112710 

111237 

023737 

001401 

104006 

112710 

111237 

023737 

001401 

104005 

112710 

111237 

023737 

001401 

10^003 

112710 

.11237 

023737 

001401 

104004 

010337 

112711 

111337 

023737 

001401 

104006 

112711 



000000 
000004 
C02436 
000340 
002124 



000140 
000120 
002474 

000100 
101750 
002122 
002126 
000007 
002124 



000350 
002122 
002126 
000007 
002124 



002122 
J02126 
002124 
000240 
002126 
002124 



000244 
002126 
002124 



000250 
002126 
002124 



000254 
002126 
002124 



002122 
000240 
002126 
002124 



000244 



MTPS *PRO 

002124 MOV #4,$GDDAT 

002126 MOV INTFLG.SBDDAT 

MTPS #F>R7 

002126 CMP $GDDAT,$BDDAT 

BEQ 102S 

ERROR 12 

102$; M0V8 #CHPJSR,(R1> 

MOVB #3IRR.(R1> 

DEC LVLSAV 

BNF 101$ 

M0V13 #CIRR,(R1) 

MOV #101750, $GUDAT 

MOV RO,$BDADR 

MOV <rtO),$BDDAT 

BIC #7,tBDDAT 

CMP $GDDAT,$BDDAT 

BEQ 4$ 

ERROR 2 

MOV *350,$GDDAT 

MOV R1.I6DADR 

MOV (R1),$BDDAT 

BJC #7,$BDDAT 

CMP $GDDAT,$BDDAT 

BEQ 5$ 

ERROR 2 

MOV R2,$8DADR 

CLR $8DDAT 

CLR SGDDAT 

MOVB flllSR.(RO) 

MOVB (R2),$8DDAT 

CMP $GDDAT,$BPOAT 

BEO 6$ 

ERROR 6 

6$: MOVB #MJMR,(RO) 

MOVB (R2), $BDDAT 

CMP $GDDAT,$BDDAT 

BEO 75 

ERROR 5 

7$: MOVB #MIRR f (RO) 

MOVB (R2), iBDDAT 

CMP SGDDAT,$BDDAT 

BEQ 10$ 

ERROR 3 

10$: MOVB #MACR,(RO) 

M0V8 <R2), iBDDAT 

CMP $GDDAT,$EDDAT 

BEQ 11$ 

ERROR 4 

11$: MOV R3,$8DADR 

MOVB #MISR.(R1) 

MOVB (R3), SBDDAT 

002126 CMP $GDDAT,$BDDAT 

BEC 12$ 

EHHOR 6 

12$: M0V8 JWIIMR.CRI) 



002124 3$: 



002126 
002126 



002124 4$; 



002126 
002126 



002126 



5$: 



002126 



002126 



002126 



; SHOULD HAVE FOUR INTERRUPTS 



INTEKrfUr TEST ERR0* 

CLEAR HiOHEST PRIORI TV iSR 

SET A I IRA BITS 

DONE W i.f-vfLS? 

DO Ni : >n UVEL If; KOT.VilON.GP2 

CLEAK !RR (JITS, GROUP 2 

RDY,tnA ( I/l : ,CHIP - 35< 

CSRA 

CLEAR IJNDF^INED BITS 



CSRA P!;G irWOR 
STORE VJ: r TED 
CSRC 

CLEAR LW/NNED BITS 



;CSRC FRROK 
;CSRB ADDRtSS 



;READ ISR 



;JSR ERROR, GP1 
;MUDE BITS FOR IMR 



;JMR ERROR, GP1 
;MODE BITS FOR IRR 



;JRR ERROR 
;READ ACR 



ACR E.'iROR 

CSRD ADDRESS 
READ ISR ,GP2 



;ISR FRR0R,GP1 
;READ IMR GP2 



r 



CVDRDB DKVVIJ 
CVDRDB.P11 



DiAC TST PRT2 
10-AUG-81 10:5? 



MACY11 30GC1063) 10-AU6-81 
f6 TEST VECTOR 



K 3 

11:00 PAGE 2-13 
ADDR UNIQUENESS W 



ROTATING MODE FOR GRPS 1,2 



SEQ 0036 



950 

951 

95? 

953 

954 

955 

956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

078 

9 '9 

980 

98; 

982 

983 

984 

985 

986 

987 

986 

989 

990 

991 

992 

99? 

9^4 

99.5 

996 

997 

998 

999 

1000 

100 'i 

1002 

1003 

1004 

1005 



010346 
010352 
010360 
010362 

010364 

010370 

010374 

010402 

010404 

010406 

310412 

010416 

010424 

C10426 

010430 

0)0432 

010434 

010442 

010446 

010452 

010460 

010466 

010470 

010472 

010500 

010504 

010510 

010516 

010524 

010526 

010330 

010534 

010540 

0105^6 

010552 

010556 

010564 

010566 

010570 

010576 

010602 

010604 

010612 

010614 

010622 

010622 

010626 

010630 



111337 
023737 
001401 
104005 

112711 

111337 

023737 

001401 

104003 

112711 

111337 

023737 

00140! 

104004 

105010 

105011 

012737 

010037 

011037 

042737 

023737 

001401 

104002 

012737 

010137 

011137 

0-2737 

023737 

001401 

104002 

012702 

012704 

012737 

010437 

011437 

Q2Z757 

001401 

104007 

062737 

005737 

001407 

023727 

103403 

012737 

062704 
005302 
001346 



002126 

U02124 002126 



000250 
002126 
002124 002126 



000254 
002126 
002124 002126 



101700 
002122 
002126 
000007 
002124 



000200 
002122 
002126 
000007 
002124 



000 1 00 

017160 
000300 
00212? 
002126 
002124 



000004 
017374 

002124 

000300 

000002 



002124 

002126 

002124 

000400 
002124 



13$; 



14$; 



200$: 



002124 



002126 
00212b 



00212* 201$: 



00?126 
002126 



15$: 
10$: 

17$? 



1000$ 



010632 
010636 



013701 
000241 



002412 



;DON'T 
NXDEV: 
NXDEV1 



MQV8 
CM? 
BEQ 
ERROR 

MOVB 
MOVB 
CMP 
BFC 

ERROR 

Move 
Move 
uiP 

BEQ 

ERROR 

CLRB 

CLRB 

MOV 

MOV 

MOV 

BJC 

CMP 

BEQ 

ERROR 

MOV 

MOV 

MOV 

BIC 

CMP 

8EQ 

ERROR 

MOV 

MOV 

MOV 

MOV 

MOV 

CMP 

BEG 

ERROR 

ADD 

TST 

b:q 

CMP 
BLO 
MOV 

ADD 
DEC 
BNE 



REPORT 
MOV 
CLC 



(R3), $BDDAT 

$GDDAT,fcBDDAT 

13$ 

5 

*MIRR,(R1) 

(R3), $BDDAT 

$GDDAT,$BDDAT 

14$ 

3 

MACR.(Rl) 

<R3),$BDDAT 

$GDDAT,$BDDAT 

200$ 

4 

(RO) 

CRD 

*101700, $GDDAT 

RO,$BDADR 

(*0>,$BDDAr 

f' f SBDDAT 

$GDDAT,$BDDAT 

201$ 

2 

rf?0O,$GDDAT 

R1.SBDADR 

<R1),$BDDAT 

*7,$8DDAT 

$GDDAT,$DDDAT 

15$ 

2 

#64., R2 

#V8UFT<4 

#300,$GDf)AT 

R4,$BDADR 

(R4),$BDDAT 

SGDDA1,$BDDAT 

17$ 

7 

#4 y 5GDDAT 

KXTFLAG 

1000$ 

$GDDAT,*400 

1000$ 

#300,$GDDAT 

#2,R4 

R2 

16$ 



;IMR ERROR, GP2 
;READ 1RR 



;JRR ERROR, GP2 
;READ ACR 



;Al"R ERROR, GP2 

; J N I T GROUP 1 MODE BITS 

;JNIT GROUP 2 MODE BITS 

;EX.^ECTED CSRA 

;CSRA 

;CLEAR UNDEFINED RITS 



CSRA REG ERROR 
STORE EXPECTED 
CSRC 

CLEAR UNDEFINED BITS 



;CSRC ERROR 

.-VECTOR BUFFER 

;START WITH FIRST VECTOR 

; VECTOR BUFFER ADDRESS 



300 



VCCTORED PROPERLY 
VECTOR ADDR MEM ERROR 

KXT11 ?? 

BR IF NOT 

YES. REACHED VECTOR 400 ?? 

NOT YET, CONTINUE 

YES, RESET EXPECTED TO 300 



NfXT BUFFER ADDRESS 
COMPLETED 64 BUFFER CHECK 5 ? 
CHECK NEXT VECTOR BUFFER LOCATION 
THAT WAS STORED BY THE INTERRUPT 
SERVICE ROUTINES, 



GPA 
G^A 
GPA 
GPA 
GPA 
GPA 



•END OF PASS 1 UNTIL 
DRCSA,R1 



ALL SELECTED DRVIU'S HAVE BEEN TESTED. 
;JNir TO SE1UP DRV11J ADDRESS 
;CLEAR CARRY FOR DEVICE MAP 



CVDRDB DRV11J 

CVDRDB.P11 



DIAC TST PRT2 
10-AUG-81 10:52 



MACY11 306(1063) 10-AUG-81 
T6 TEST VECTOR 



11:00 PAGfc' c-H 
ADDR UNIQUENESS IN 



ROTATING MODE FOR GRPS 1,2 



SEQ 0037 



1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

10K 

<H 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(i) 

(1) 

(1) 

(2) 

(2) 

(1) 

(1) 

'.D 

(1) 

(1) 

(1) 

Ci> 

(1) 

(1) 

(1) 

(1) 

CD 

d; 



01 0640 
010644 
010646 
010652 
010656 
C10664 
010666 



01 067? 

010672 

010674 

010700 

010704 

010710 

010716 

010720 

010722 

010724 

010726 

010730 

010732 

010736 

0I0742 

010744 

010750 

010754 

010716 

010760 

010762 

010764 

010766 

010770 

010770 

010772 

010774 

010777 



006037 
001412 
162701 
005237 
032737 
001764 
000137 



000240 

005037 

005037 

005237 

042737 

005327 

000001 

003022 

012737 

000001 

010720 

104401 

013746 

104405 

104401 

013700 

001405 

000005 

004710 

000240 

000240 

000240 

000137 

003134 

377 

015 



^02434 

000020 
002202 
000001 

003200 



002102 
002160 
002176 
100000 



010777 
002176 

010774 
000042 



002434 



002176 



ROR 


DMAP 


GEO 


$E0P 


sue 


*20, R1 


INC 


SUNN 


BiT 


01. DMAP 


REQ 


NXDEV1 


.IMP 


NEXPAS 



LOOK FOR NEXT DRV11J 

8R IF ALL TESTED 

NEXT DRV11J STARTS -20 

UPDAT UNIT ff 

IS UNIT SELECTED? 

8R IF NOT 

TEST NEXT DRV11J 



FROM PAST CSR 



.SBTTL END OF PASS ROUTINE 



•A******************* ******************************************* 

♦INCREMENT 1 : P' C S NUMBER (SPASS) 

*IYPE M END p * W XXX" (WHERE XXXXX IS A DECIMAL NUMBER) 

+1F THERES « . JR GO TO IT 

*1F THERE 1SNN ,JMP TO START1 



$EOP: 



SEOPCT: 
SENDCT: 



377 QUO 
042412 042116 



$GET42: 
SENDAD: 

5D0AGN: 

SRTNAD: 
JENULL: 
SENDMG: 



NOP 
CLR 
CLR 

INC 

BIC 

DEC 

.WORD 

BGT 

MOV 

.WORD 

SEOPCT 

TYPE 

MOV 

TYPDS 

TYPE 

MOV 

BcQ 

RESET 

JSR 

NOP 

NOP 

NOP 

JMP 
.WORD 
.BYTE 
.ASCIZ 



$isim 

SlIMES 

iPASS 

0100000, SPASS 

(PC) + 

1 

SD0A6N 

<pc)+,a<PO + 
1 

,$ENDMG 
$PASS,-(SP) 

,$ENULL 
M42,R0 
SDOAGN 

PC,(RO) 



S(PC)+ 

START1 

-1-1,0 

<15><12>/FND PASS 



;;2ER0 THE TEST NUMBER 
;;ZERO THE NUMBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 
;;DON'T ALLOW A NEG. NUMBER 
;;LOOP? 



* 'Y^S 
YiRESTQRE 



COUNTER 



TYPE "END PASS *" 

SAVE SPASS FOR TYPEOUT 

GO TYPE— DECIMAL ASCI.' WITH SIGN 

TYPE A NULL CHARACTER 

GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE WORLD 

GO TO MONITOR 

SAVE ROOM 

FOR 

ACT11 



RETURN 



NULL 



CHARACTER STRING 



CVDRDB DRV11J 
CVURDB.P11 



DIAG 1ST PRT2 
10-AUG-81 10:52 



MACY11 306(1063) 10-AUG-81 11:00 
PROGRAM SUBROUTINES 



n 3 

PAGE 



2-15 



SEQ 0038 



1016 










♦SETTL 


PROGR/ 


W SUBROUTINES 






1017 




















1018 




















1019 










• ************************* *************** ****** ************** **** 




1020 










♦CLEAR 


ALL CONTROL 'STATUS REGISTERS 




1021 










..***********j.^************************************************** 




1022 


011014 


010046 






CLRCSR: 


MOV 


RO,-(SP) ; 


SAVE RO 




1023 


011016 


106427 


000340 






MTPS 


#PR7 ; 


PSW = 340 




1024 


011022 


012737 


000340 


U02456 




MOV 


#PVMA,VECVAL ; 


INN VECTOR ADDR MEM = 340 




1025 


011030 


012737 


000300 


002452 




MCV 


#300,VECLOC ; 


INJT VECTOR ADDR TO 300 




1026 


011036 


013700 


002412 






MOV 


DRCSA,RO 


START OF CSR ADDRESS 




1027 


011042 


005037 


002124 






CLR 


SGDDAT 


CLEAR EXPECTED 




1028 


011046 


005037 


002126 






CLR 


S8DDAT 


CLEAR REC'D 




1029 


011052 


005010 








CLR 


(RO) 


CLEAR CSRA;CH1P RESET GROUP 1 




1030 


011054 


105060 


000005 






CLRB 


5(R0) 


CLEAR HIGH BYTE CSRB 




1031 


011060 


005060 


000010 






CLR 


10(R0) 


CLEAR CSRC;CHJP RESET GROUP 2 




1032 


011064 


105060 


000015 






CLRB 


15(R0) 


CLEAR HIGH BYTE CSRD 




1033 


011070 


012600 








MOV 


(SP)+, RO 


RETURN RO 




1034 


011072 


000205 








RTS 


R5 






1035 




















1036 




















1037 










; CLEAR 


JRR REGISTERS, GROUP 1 , GROUP 2 WITH CHIP RESET 




1038 


011074 


010046 






CLRlRRs 


MOV 


RO.-(SP) 






1039 


011076 


013700 


002412 






MOV 


DRCSA,RO 


START OF CSK ADDRESS 




1040 


011102 


105060 


000011 






CLRB 


11CR0) 


CSRC TO INPUT MODE 




1041 


011106 


112760 


000001 


000001 




MOVB 


*BIT0,1(R0> 


•CSRA TO OUTPUT NODE 




1042 


011114 


005060 


000002 






CLR 


2(R0) 


CLEAR DBRA 




1043 


011120 


105010 








CLR8 


(RO) 


•CHIP RESET OF GROUP 1 




1044 


011122 


105060 


000010 






CLR8 


10CR0) 


;CHIP RESET OF GROUP 2 




1045 


011126 


012600 








MOV 


(SP)+, RO 


•RESTORE REGISTER 




1046 


011130 


000205 








RTS 


R5 


■EXIT 




1047 




















1048 










;ROUTINE TO FILL VECTOR MEMORY FOR VECTOR UNIQUENESS TEST 




1049 










;300-474 


GROUP 1 






1050 










; 500-674 


GROUP 2 






1051 


011132 


013700 


002412 




VECFIL 


MOV 


DRCSA,RO 


;START GROUP 1 




1052 


011136 


013701 


002416 






MOV 


DRCSB,R1 






1053 


01114? 


012702 


000Q(7 






MOV 


#2.R2 


;TUO GROUPS 




1054 


011146 


012737 


OOOO.iO 


002454 




MOV 


#60,VECPAT 
#370,VEO/AL 


;VECTOR START 300 




1055 


011154 


012737 


000370 


002456 


1$: 


MOV 


;START VECTOR LEVEL Q,BY4 




1056 


011162 


012737 


000010 


002466 




MOV 


*8.,LVLCNT 


;LEVELS 0-7 




1057 


011170 


113710 


002456 




2$: 


M0V8 


VECVAL,(RO) 






1058 


011174 


012737 


000004 


002470 




MOV 


#4,BYCNT 


;D0 FOUR BYTE COUNTS 




1059 


011202 


1137*1 


002454 




3$: 


MOVB 


VEC"AT,(R1) 


;WRITE VECTOR 




1060 


011206 


005237 


002454 






INC 


VEC-AT 


.-SETUP FOR NEXT VECTOR 




1061 


011212 


005737 


017374 






TST 


KXTFLAG 


; KXT11 ?? 


;GPA 


1062 


OIU'16 


001407 








BEQ 


1000$ 


; BR IF NOT 


;tPA 


1063 


011220 


025727 


002454 


000100 




CMP 


VECPAT,#100 


; YES, REACED VECTOR 400 ?? 


;GPA 


1064 


011226 


103403 








BLO 


1000$ 


; NOT YET, CONTINUE 


;GPA 


1065 


011230 


012737 


000060 


002454 




MOV 


*60,VECPAT 


; YES, WRAP-AROUND TO 300 AGAIN ; 


;GPA 


1066 
















; WE'LL END UP WITH 300-374... ; 


;GPA 


1067 
















,.., REPLICATED 4 TIMES. 


;GPA 


1068 


011236 








.' JOOS: 








;GPA 


1C69 


C11236 


005337 


002470 






DEC 


BYCNT 


;DONE FOUR BYTE COUNTS? 




1070 


011242 


001357 








BNE 


3$ 


;D0 NEXT VECTOR 




1071 


011244 


005337 


00246& 




K$: 


DEC 


LVLCNT 


;DONE ALL LEVELS IN GROUP? 





CVDRDb DRV11J 
CVDRDB.P11 



D)AG TST PRT2 
10-AUG-81 10:52 



1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1032 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1 090 

, 191 

11 ^2 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

Till 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1J26 

1127 



011250 
011252 
011256 
011260 
011262 
011264 
011270 
011274 
011276 



011300 
011304 
011310 
011314 
011316 

011322 
011326 
011330 
011332 



011334 
011340 
011344 
011346 
011350 
011352 



01 1354 
0113S6 
Oil >6? 
011364 
011370 
011372 



011374 
011376 
011400 
011402 
011406 
011410 
011414 
011416 
011424 
011426 
011430 



011432 
011440 



00H03 
005237 
000744 
005302 
001405 
013700 
013701 
000727 
000205 



0127 

012701 

012702 

0101TO 

012720 

062701 
005302 

001371 
000205 



012/00 
012701 
005C20 
005301 
001375 
000205 



005000 
012701 
012021 
022700 
001374 
000205 



010046 
010146 
005000 
012701 
012120 
022700 
001374 
013777 
012601 
012600 
000205 



022 7 37 
00.421 



002456 



002422 
002h26 



000300 
012236 
000100 

000340 

000004 



017160 
000100 



016754 
000204 



016754 
000204 
002460 



MACY11 30G(1063) 10-AUG-81 11:00 
PROGRAM SUBROUTINES 



N 3 
PAGE 



2-16 



SEQ 0039 



170514 



5$: 



6$: 



BEQ 

INC 

BR 

DEC 

BEQ 

MOV 

MOV 

BR 

RTS 



5$ 

VECVAL 

2$ 

R2 

6$ 

DRCSCRO 

DRCSD,R1 

1$ 

R5 



.-ROUTINE TO 

STRVEC: MOV 
MOV 
MOV 

1$: MOV 
MOV 

;;6PA APD 
ADD 
DI:C 
BNE 
RTS 

;ROUTINE TO 



CLRBF 
1$: 



MOV 
MOV 
CLR 
DEC 
BNE 
RTS 



STORE VECTOR 
#300 £ R0 

*jnt6,ri 

*64.,R2 
R1,(RQ)+ 
#340,(R0)+ 
#6,R1 

.44, R1 
R2 

1$ 
R5 

CLEAR VECTOR BUFFER 
#V8UF,R0 
064. ,R1 
<R0) + 
R1 
1$ 
R5 



;INC NEXT LEVEL 
;D0 NEXT LEVEL 
;DONE BOTH GROUPS? 
;DONE, EXIT 
;D0 GROUP 2 



'JX1T 

AREA 300-674 WITH INTERRUPT SERVICE 
START AT VECTOR 300 
FIRST SERVICE ROUTINE 
STORE 64 SERVICE ROUTINES 



;SETUP FOR NEXT VECTOR STORAGE 

; SETUP NEXT VETOR. 

;DONE WITH 64 VECTOR ROUTINES? 

;EXIT 



;VECTCR BUFFER START 



; ; GPA 



.-ROUTINE TO STORE 0-202 INTO BUFFER AREA TO ALLOW 
;VFC T OR TESTS TO 0-200. 



TOBUF; CLR 
MOV 

1$: MOV 
CMP 
BNE 
RTS 

; STORE BUFFER 
;AFTER VECTOR 
FRM8UF; MOV 
MOV 
CLR 



RO 

0DBUF.R1 

(R0)f # (R1) + 

#:94.R0 

1$ 

R5 



BUFFER START 

STORK C-202 INTO BUFFER 

FINISHED? 

NO 

RETURN 



1$: 



MOV 
MOV 
CMP 
BNE 
MOV 
MOV 
MOV 
RTS 



AREA INTO LOCATIONS 0-202 
TESTS 

RC.-(SP) 

R1,-(SP> 

RO 

*DBUF.R1 

(R1)+,(R0)+ 

#204, RO 

1$ 

sursav,9swr 
;sp)+,ri 

(SP) + ,R0 
R5 



;SAVE RO 



BUFFER STA' T 

STORE BUFFER INTO LOCS 0-202 

FINISHED? 

NO 

STORt" LOCATION 176, SOFT SWR 

RESTORE R1 

RESTORE RO 

RETURN 



000001 002210 



;REST0RE VECTOR 
r TRP; CMP 
BEQ 



RE a 



JUST TESTED 

#1,*ENV 

1$ 



TO ORIGINAL TRAP FOR 204-1774 
.-CHECK FOR APT 
;YES,8RANIH 



CVDRDL DRV11J 
CVDRDB.P11 



DJ.AG TST PRT2 
10-AUG-81 10:52 



MACY11 30GH063) 10-AUG-81 11:00 
PROGRAM SUBROUTINES 



N 3 
PAGE 



2-16 



SEQ 0039 



1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 

1081 

1032 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1 090 

. *91 

1i ^2 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1)26 

1127 



011250 
011252 
011256 
011260 
011262 
011264 
011270 
011274 
011276 



011300 
011304 
011310 
011314 
011316 

011322 
011326 
011330 
011332 



011334 
011340 
011344 
011346 
011350 
011352 



011354 

011356 
Oil. .62 
011364 
011370 
011372 



011374 
011376 
011400 
011402 
011406 
011410 
011414 
011416 
ij 11424 
01 1426 
011430 



0114^2 
011440 



001403 
005237 
000744 
005302 
001405 
013700 
013701 
000727 
000205 



0127 ■ 

012701 

012702 

0101P0 

012720 

062701 
005302 
001371 
000205 



012700 
012701 

005C20 
005301 

001375 

000205 



005000 
012701 
012U21 
022700 
001374 
000205 



010046 
010146 
005000 
012701 
012120 
022700 
001374 
013777 
012601 
012600 
000205 



02PJ37 
00,421 



002456 



002422 
002h26 



000300 
012236 
000100 

000340 

000004 



017160 
000100 



016754 
000204 



016754 

000204 
002460 



170514 



5$ 



6$ 



BEQ 

INC 

BR 

DEC 

BEQ 

MOV 

MOV 

BR 

RTS 



5$ 

VECVAL 

2$ 

R2 

6$ 

DRCSCRO 

DRCSD,R1 

1$ 

R5 



.-ROUTINE TO 

STRVEC: MOV 
MOV 
MOV 

1$: MOV 
MOV 

;;GPA ADD 
ADD 
Df. : C 
BtfE 
RTS 

;R0UTINE TO 



CLR8F 
1$: 



MOV 
MOV 
CLR 
DEC 
BNE 
RfS 



STORE VECTOR 
#300 £ R0 

#int6,ri 

#64. ,R2 
R1,(R0>+ 

#340,(R0)+ 
06, R1 
44, R1 
R2 

1$ 
R5 

CLEAR VECTOR BUFFER 
#V8UF,R0 
#64.,R1 
<R0) + 
R1 
1$ 
R5 



;INC NEXT LEVEL 
;D0 NEXT LEVEL 
;DONt BOTH GROUPS? 
;DONE,EXIT 
;D0 GROUP 2 



;FXIT 

AREA 300-674 WITH INTERRUPT SERVICE 
;START AT VECTOR 300 
;FIRST SERVICE ROUTINE 
;STORE e>4 SERVICE ROUTINES 



;SETUP FOR NEXT VECTOR STORAGE 

; SETUP NEXT VETOR. 

;DONE WITH 64 VECTOR ROUTINES? 

;EXIT 



;VECTCR BUFFER START 



;;GPA 



.-ROUTING TO STORE 0-202 INTO BUFFER AREA TO ALLOW 
;VFC T OR TESTS TO 0-200. 
TOflUf; CLR RO 

MOV 0DBUF,R1 
1$: MOV (R0)*-,(R1) + 

CMP #:94.RQ 

BNE 1$ 

RTS R5 



BUFFER START 

STORF C-202 INTO BUFFER 

FINISHED? 

NO 
RETURN 



; STORE BUFFER AREA INTO LOCATIONS 0-202 
;AF1^R VECTOR nSTS 



000001 002210 



FRMBUF: MOV 

MOV 

CLR 

MOV 
1$: MOV 

CMP 

BNE 

MOV 

MOV 

MOV 

RTS 

•RESTORE VECTOR 
RCSTRP: CMP 
BEQ 



RC-(SP) 

R1,-(SP) 

RO 

#DBUF,R1 

<Rm,(RO) + 

#204, RO 

1$ 

swrsav.9swr 
:sp)+ # ri 

(SP)+, RO 

R5 

JUST TESTED 

#1,$ENV 

1$ 



TO 



;SAVE RO 



BUFFER STA* T 

STORE BUFFER INTO LOCS 0-202 

FINISHED? 

NO 

STORfc" LOCATION 176, SOFT SWR 

RESTORE R1 

RESTORE RO 

RETURN 



ORIGINAL TRAP FOR 204-1774 
.•CHECK FOR APT 
;YES,BRANIH 



CVDRDB DRV11J 
CVDRDB.P11 



D1AG TST PRT2 
10-AUG-81 10:52 



MACY11 30GC1063) 10-AUG-81 11:00 
PROGRAM SUBROUTINES 



B A 

PAGE 



1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

115? 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1 1 70 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 



011442 
011450 
011452 
011460 
011464 
011466 
011474 
011476 
01 1 S02 
0' 1 504 

011510 
011514 
011522 



011524 
011526 
011530 
011536 
011540 
011544 
011552 



011554 
011560 
011564 
011570 
011572 
011574 
011576 
011600 
011602 
011604 
011610 
011612 
011614 
011620 
011624 
011630 
011634 
011636 
011640 
011642 



011644 
011650 
011656 
01 1664 
011672 



032777 
001412 
062737 
013723 
005013 
062737 
000412 
012723 
000402 
012723 

012713 
06273"' 

000205 



010046 
010146 
022737 
001426 
012700 
032777 
001010 



01<-7?0 
01272b 
022700 
001371 
000421 
010001 
00572! 
010120 
005020 
0227^1 

001371 
000411 
012701 
012721 
012721 
022701 
001371 
012601 
012600 
000205 



005237 
012737 
013737 
023737 
001401 



010000 

000002 
002452 

000002 

011752 

011734 

000340 
000004 



000001 

000204 
010000 



01175? 

000340 
002000 



001776 



000204 
011734 
000340 
002000 



0024 36 
000001 
0024 T 6 
002124 



170470 
002452 

002452 



002452 



002210 
170366 



BIT #SW12,8SWR 

BEQ 10$ 

ADD #2,VECL0C 

MOV VECL0C,(R3)+ 

CLR (R3) 

ADD #2,VECLGC 

BR 2$ 

10$: MOV #TRPALL,(R3)+ 

BR 11$ 

1$: MOV #TRP0UT,(R3)+ 

11$: MOV rfJ40,(R3> 

ADD #4.VECL0C 

2$: RTS R5 



2-17 



CHECK TYPE OF TRAP RETURN 

RESTORc ILLEGAL VECTOR ROUTINE 

RESTORE TRAP 

TO VECTOR 

RESTORE HALT 

SETUP FOR NEXT 

RETURN 

RESTORE ILLEGAL TRAP ROUTINE 

RESTORE PSW 

RESTORE APT SUB TRAP 

IF ON APT 

RESTORE PSW SAVE 

UPDATE FOR NEXT Vfc'CTOR 

RETURN 



SEQ 0040 



;ROUTINE TO SET UP TRAP CATCHER 204-1774 IN STANDALONE MODE OR 
;A COMMON VECTOR ROUTINE SETUP UNDER APT. 

.♦VECTOR ROUTINE JS USED ONLY IN AN APT ENVIRONMENT AND WILL STORE 
;A COMMON SUQROUTINE IN VECTOR AREA 204-1774, 



TRPCAT: 



11$: 



1$: 



APTVLC; 
1$: 



ENDTRP: 



MOV RO.-(SP) 

MOV R1.-CSP) 

CMP #1,$ENV 

BEQ APTVEC 

MOV #204 .RO 

BIT #SW12,SSWR 

BNE 1$ 



MOV #TRPALL .<R0>+ 

MOV #340.(R&)+ 

CMP #2000, RO 

BNE 11$ 

BR FNDTRP 

MOV RO.iU 

TST (RIM 

MOV R1.CR0)* 

CLR <R0)+ 

CMP *1776,RI 

BNE 15 

BR ENDTRP 

MOV #204, R1 

MOV #TRP0UT,(R1H 

,10V #340. (R1) + 

IMP #2000, R1 

BNE 1$ 

MOV (SP)*,R1 

MOV (SP)+,RO 

RfS RS 



SAVE RO 

CHECK (OR APT 

YE5.SEY UP TRAPS FOR APT 

START CATCHER AT 204 

TEST IF SW12 i: SET 

YES, BR AND STORE REGULAR TRAP 

CATCHER(.+?,HALT) IN LOCATIONS 

204-1774 

N0,PLAC5 ILLEGAL VECTOR RETURN 

ROUTINES IN LOCATIONS 204-1774 

STORED ALL VECTORS? 

RETURN AFTER VECTOR SWAGE 
DRV11J CAN VECTOR 0-1774 



;CHFl'K FOR VECTOR END 

.'RETURN IN STAND ALONE MODE 

.-STARTING VECTOR ADDRESS 

; ILL INTERRUPT ROUTINE 

;PSW NEXT 

; DWJE ? 

;D0 NEXT VECTOR 



;FXI 



002124 

002126 
002126 



.•INTERRUPT SERVICE ROUTINE USti) TO VERJEV INTERRUPT ?0^1774 

INTSR1 ' " '" 



JNC INTFLG 

MOV #1,$GDDAT 

MOV INTFLG, $BDDA1 

CMP $GDDAT,$BDDAT 

BEQ 1$ 



COUNT INTERRUPT 

STORF EXPECTED 

SAVE INT, COUNT 

SHOULD BE ONE INTERRUPT 



CVDRDB DRV11J 
CVDRDB.P11 



D1AG TST PRT2 
10-AUG-81 10:52 



MACY11 30G(1063) 10-AUG-81 
PROGRAM SU8R0UTINES 



11:00 



C 4 
PAGE 



2-18 



SEQ 0041 



1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1 194 

1195 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 



011674 
011676 



011700 
011704 
011712 
011720 
011726 
011730 



104013 
000002 



005237 
013737 
013737 
023737 
002001 
104013 



011732 000002 



011734 

011740 
011744 
011746 
011750 



C11752 
011756 
011760 



011/62 
011770 
011772 
OH 776 
012002 
012004 

012010 
012014 
012022 



012024 
012026 
012034 
012042 
012044 
012046 
012052 
012056 
012062 
012C64 
012066 
012070 
012074 
012100 



011637 
004537 
104014 
000000 
000000 



011637 
104014 
000002 



022737 
00140'. 
0127' 4 
0i7 7 t3 
000' -j'. 
012/ \5 

01271. 

062737 

000205 



010046 
017737 
0,>2737 
00i'11 
005000 
01?720 
OU 720 
022/00 
001371 
000410 
005000 
012720 
012720 
022700 



002436 
002472 
002436 
002124 



002120 
0113/4 



002120 



012170 
C00340 

011/34 

000340 
000004 



1$: 



ERROR 
RTJ 



13 



♦•MULTIPLE INTERRUPTS RECEIVED 
.-RETURN FROM INT. 



.-INTERRUPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS "04-1774 
;FOR A B 1 TE C0UN1 OF 1 TO 4 VECTORS IN VECTOR ADDR fotMORY. 



002124 
002126 
002126 



INTBY4: 



1$: 



INC 
MOV 
MOV 
CMP 
BGE 
ERROR 

RTJ 



INTFLG 

BYNUM,$GDDAT 

INTFLG,SBDDAT 

$GDDAT,$BDDAT 

1$ 

13 



; COUNT INTERRUPT 
;STORE EXPECTED 
;SAVE INT. COUNT 
.•INTERRUPTS SHOULD 



NOT EXCEED BYTE COUNT 



.•MULTIPLE INTERRUPTS RECEIVED 
;MORE INTERRUPTS THAN BYTE COUNT 
.•RETURN FROM INT. 



; COMMON ILLEGAL VECTOR RETURN ROUTINE FOR <PT MODE. 



TRPOUT: MOV 
JSR 
ERROR 
HALT 
HALT 

.•COMMON ILLEGAL 
;204-1774 
TRPALL: MOV 

ERROR 

RTJ 



(SP).SGDADR 

R5,FRM8UF 

14 



SAVE ADDRfcSS OF TEST 
RETURN ' NATIONS 0-202 
ILLEGAL VECTOR ADDR MEM ERROR 
CANNOT CONTJNUl 
CANNOT CONTINUE 



VECTOR RETURN ROUTINE FOR VECTOR AREA 



(SP),$GDADR 
14 



;SAVr PC 
.'ILLEGAL 

; RE TURN 



OF TEST 

VECTOR ADDR Mr*1 ERROR 



000001 002210 RES200: 



.-RESTORE VECTOR J\JST TFSTED TO ERROR SUBROUTINE FOR Q-202 



1$: 



002452 2$: 



CMP #1,SENV 

BEO 1$ 

MOV #TRP200,(R3H 

MOV #340, (R3) 

BR 2$ 

MOV #TRPOUT, <R3)t 

MOV #340, <R3) 

ADD #4,VE(L0C 

RTS RS 



cHEC.K FOR APT 

YES. BRANCH 

ERROR 1RAP SU8. FOR 0-200 

PSW 

RETURN 

RESTORE APT SUB TRAP 

IF ON APT 

RESTORE PSW SAVE 

UPDATE FOR NEXT VECTOR 

RETURN 



.•ROUTINE TO SET UP TRAP SUBROUTINE 0-200 IN STANDALONE MODE OR 
;A COMMON ERROR VECTOR ROUTINE SETUP UNDER APT. 



170106 
000001 



012170 

000340 
000204 



011734 
000340 
000204 



002460 
002210 



CAT200: 



1$: 



APT200: 
1$: 



MCV RO.-(SP) 

MOV aSWR.SURSAV 

CMP #1,$ENV 

BFO APT200 

CLR RO 

MOV #TRP200.(R0)+ 

MOV #340,<r6)+ 

CMP #204. RO 

BNF 1$ 

BR END200 

CLR RO 

MOV #TRPOUT.(R0)+ 

MOV #340, (RO)* 

CMP #204, RO 



SAVE RO 

SAVE LOCATION 176, SOFT SUR 

CHECK FOR APT 

YES, SET [)P TRAPS FOR APT 

START CATCHER SUB AT 

STORE VECTOR TRAP SUBROUTINE 

PSW 

FINISHED 0-202 



RETURN IN STAND ALONE 
START AT VECTOR 
VECTOR ERROR ROUTINE 
PSW NEXT 
DONE? 



MODE 



CVDRDB DRV11J 
CVDRDB. P11 



DIAG TST PRT2 
10--MUG-81 10:52 



MACY11 30G(1063) 10-AUG-81 11:00 
PROGRAM SUBROUTINES 



D 4 
PAGE 



2-19 



S£U 0042 



1240 

1241 

1242 

1243 

1244 

1245 

1246 

124? 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 

1281 

1282 

1233 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 



012104 
012106 
012110 
012114 
012122 



012124 
012130 
012136 
012144 
012152 
012154 
012160 

012162 
012166 



012170 
012174 
012200 
012202 
012206 



012210 
012214 
012216 
012222 
012230 
012232 
012234 



012236 
012240 
012242 
012244 
012246 
012250 
012252 
012254 
012256 
012260 
012262 
012264 
C12266 
012270 



001371 
0126C0 
012713 
012763 
000205 



005237 
013737 
013737 
023737 
002005 
004537 
104013 

004537 
000002 



011637 
004537 
104014 
004537 
000002 



017624 

005726 
005237 
022737 
002001 
104013 
000002 



004715 
000300 
004715 
000304 
004715 
000310 
004715 
000314 
004715 
000320 
C04715 
00032* 
004715 
000330 



012124 
000340 



000002 



002436 
002472 
002436 
002124 

011374 



012024 



002120 
011374 

012024 



000000 

002436 
000100 



002124 
002126 
002126 



002436 



BNE 1$ 

END20Q: MOV CSPK. RO 

MOV *INTSR3.(R3) 

MOV #340,2(R3) 

RTS R5 



;D0 NEXT VECTOR 

; STORE VECTOR ROUTINE 

; STORE PSW 

;EX1T 



INTERRUPT SERVICE ROUTINE USED TO VERIFY INTERRUPTS 0-200, BYTE COUNT 0-3 
;FOR BYTE COUNTS OF 1 TO 4 VECTORS IN VECTOR ADDRESS MEMORY. 



INTSR3: 



INC 
MOV 
MOV 
CMP 
BGE 
JSR 
ERROR 



1$: 



JSR 

RTI 



INTTLG 

BYNUM.SGDDAT 

INTFLG,$BDDAT 

$GPDAT,$RDDAT 

1$ 

R5.FRM8UF 

13 

R5.CAT200 



COUNT INTERRUPT 

STORE EXPECTED 

SAVE INT. COUNT 

INTERRUPTS SHOULD NOT EXCEED BYTE COUNT 

RESTORE 0-202 BEFORE ERROR 
MULTIPLE INTERRUPTS RECEIVED 
MORE INTERRUPTS THAN BYTE COUNT 
RESTORE VECTOR SUBROUTINES 
RETURN FROM INT, 



;COMHON ILLEGAL VECTOR ERROR RETURN ROUTINE FOR 0-200 



TRP200: MOV 
JSR 



ERROR 

JSR 

RTI 



(SP), SGDADR 
R5.FRMBUF 
14 
R5.CAT200 



SAVE PC OF TEST 

RETURN LOC 0-200 

ILLEGAL VECTOR ADDR » EM ERROR 

RESTORE VECTOR SUBROUTINES FOR PROCEED 

RETURN 



."VECTOR SERVICE ROUTINE FOR VECTOR UNIQJENESS TEST 



;SETVEC: 

SETVEC: MOV 
TST 
INC 
CMP 
BGE 
ERROR 

1$: RTI 



MOV 



9(SP),(R4)+ 

iSP) + 

INTFLG 

*64.,INTFLG 

1$ 

13 



<R5)+,(R4)+ 



;STORE VALUE IN BUFFER 



STORE VECTOR NUMBER IN BUFFER 
RESTORE STACK FOR RTI 
COUNT INTERRUPT 

64 EXPECTfD INTERRUPTS? 

ERROR .MORE THAN 64 INTERRUPTS 

RETURN FOR NEXT INTERRUPT 



; ; GPA 

;;GPA 



.-INTERRUPT SERVICE ROUTINES THAT ARE STORED FROM 300-674 
;IN THE VECTOR UNIQUENESS TEST. 

; R5 POINTS TO "SETVEC:" DURING TESTS 5 AND 6. AND CALLS 
; CHANGED FROM "JSR R5, SETVEC" TO "JSR PC,(R5)" TO CONSERVE 
; SPACE AND REMAIN UNDER 4KU TOTAL PROGRAM SIZE. 

PC, (R5) ;STORE 300 INTO VBUF.TO BE 

;CHECKED AFTER ALL INTERRUPTS. 

PC,(R5) ; VECTOR UNIOUENESS TEST, INT. SERV RTN 

PC.(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RTN 

PC, (R5) ;VECTOR UNIQUENESS TEST, INT. SERV RTN 

PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RTN 

PC.CR5) ;VECTOR UNIQUENESS TEST, INT. SERV RTN 

PC,(R5) ;VECTOR UNIQUENESS TEST, INT. SERV RTN 



INTO: 


JSR 




300 


1NT1. 


JSR 




304 


INT2. 


JSR 




310 


JNT3 


JSR 




314 


INT4 


JSR 




320 


JNT5 


JSR 




324 


INT6 


JSR 




330 



GPA 
GPA 
GPA 
GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 



CVDRDB DRV11J DIAG 1ST PRT2 
CVDRDB. D 11 10-AUG-81 10:52 



E 4 
MACY11 30G(1063) 10-AU6-81 11:00 PAGE 2-20 
PROGRAM SUBROUTINES 



SEQ C043 



1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 



012272 
012274 
012276 
012300 
012302 
012304 
012306 
012310 
012312 
012314 
012316 
012320 
012322 
0123Z4 

m?™» 

012350 
012332 
012334 
C12336 
012340 
012342 
012344 
012346 
012350 
012352 
012354 
)12356 
>12360 
112362 
01236'* 
012366 
012370 
012372 
012374 
0(2376 
012400 
012402 
012404 
012406 
012410 
012412 
012414 
C12416 
012420 
012422 
012424 
012426 
012430 
012432 
012434 
012436 
012440 
012442 
012444 
012446 
012450 



004715 

000334 

004715 

000340 

004715 

000344 

004715 

000350 

0047! 5 

000354 

004715 

000360 

004715 

000364 

004715 

0C0370 

004715 

000374 

004715 

000400 

004715 

000404 

004715 

000410 

004715 

000414 

004715 

000420 

004715 

000424 

004715 

000430 

004715 

000434 

004715 

000440 

004715 

000444 

004715 

000450 

004715 

000454 

004715 

000460 

004715 

000464 

004715 

000470 

004715 

000474 

004715 

000500 

004715 

000504 

004 715 

000510 



iNT7: 


JSR 
334 


PC,(R5) 


INT8: 


JSR 
340 


PC,(R5) 


INT9; 


JSR 
344 


PC,(R5) 


INT10: 


JSR 
350 


PC,(R5) 


INT11: 


JSR 
354 


PC,(R5) 


INT12: 


JSR 
360 


PC,(R5) 


INT13: 


JSR 
364 


PC,(R5) 


INT14: 


JSR 
370 


PC,(R5) 


VNT15; 


JSR 
374 


PC,(R5) 


INT16: 


JSR 
400 


PC,(R5) 


INT17: 


JSR 

404 


PC,(R5> 


INT18: 


JSR 
410 


PC,(R5) 


INT19: 


JSR 
414 


PC,<R5) 


INT20; 


JSR 
420 


PC,(R5) 


INT21: 


JSR 
424 


PC,(R5) 


INT22: 


JSR 
430 


PC,(R5) 


INT23; 


JSR 
434 


PC,(R5) 


JNT24; 


JSR 
440 


PC,(R5) 


INT25: 


JSR 
444 


PC,(R5) 


INT26; 


JSR 
450 


PC,<R5) 


INY27: 


JSR 
454 


PC,(R5> 


INT28: 


JSR 
460 


PC.(R5) 


JNT29: 


JSR 
464 


PC,(RS) 


INT30: 


JSR 
470 


PC,(R$> 


INT31: 


JSR 

474 


PC,(R5) 


JNT32: 


JSR 
500 


PC,<R5) 


INT33: 


JSR 
504 


PC.(R5) 


INT34: 


JSR 
510 


PC,(R5) 



VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TESf 
VECTOR UN!CUE*ESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TFST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 
VECTOR UNIQUENESS TEST 



INT. 
INT. 
INT. 
INT. 
INT. 
INI. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 



SERV RTN 
5ERV RTN 
SERy RTN 
SERM RTN 
SER^J RTN 
SER^ RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SEfW RTN 
SERV RTN 
SERV RTN 
SERV KTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 



GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
(••PA 

g:>a 

GPA 
GPA 



CVDRDB DRV11J DIAG TST PRT2 
CVDRD3.P11 10-AUG-81 10:52 



MACY11 30GC1063) 10-AU6-81 11: 
PROGRAM SUBROUTINES 



F 4 

00 PAGE 2-21 



SEQ 0044 



1352 


012452 


004715 


1353 


012454 


000514 


1354 


012456 


004715 


1355 


012460 


000520 


1356 


012462 


004715 


1357 


012464 


000524 


1358 


012466 


00471 5 


1359 


012470 


000530 


1360 


012472 


004715 


1361 


012474 


000534 


1362 


012476 


004715 


1363 


012500 


000540 


1364 


012502 


004715 


1365 


012504 


000544 


1366 


012506 


004715 


1367 


012510 


000550 


1368 


012512 


004715 


1369 


012514 


000554 


1370 


012516 


004715 


1371 


012520 


000560 


1372 


012522 


0047*15 


1373 


012524 


000564 


1374 


012526 


004715 


1375 


012530 


000570 


1376 


012532 


004715 


1377 


012534 


000574 


1378 


012536 


004715 


1379 


012540 


000600 


1380 


012542 


004715 


1381 


012544 


000604 


1382 


012546 


004715 


1383 


012550 


000610 


1384 


012552 


004715 


1385 


012554 


000614 


1386 


012556 


004715 


1387 


012560 


000620 


1388 


012562 


004715 


1389 


012564 


000624 


1390 


012566 


004715 


1391 


012570 


000630 


1392 


012572 


004715 


1393 


012574 


000634 


1394 


012576 


004715 


1395 


012600 


000640 


1396 


012602 


004715 


1397 


012604 


000644 


1398 


012606 


004715 


1399 


012610 


000650 


1400 


012612 


004715 


1401 


012614 


000654 


1402 


012616 


004715 


1403 


012620 


000660 


1404 


012622 


004715 


1*05 


012624 


000664 


1406 


012626 


004715 


1407 


012630 


000670 



INT35: 
INT36: 
INT37: 
INT38: 
INT39: 
INT40: 
INT41: 
INT42: 
INT43: 
INT44: 
JNT45: 
INT46: 
INT47: 
JNT48: 
INT49: 
JNT50: 
INT51: 

1NT52: 

JNT53: 
INT54: 
INT55: 
INT56: 
JNT57: 
INT58: 
INT59; 
1NT60: 
JNT61: 
INT62: 



JSR 

514 

JSR 

52C 

JSR 

554 

JSR 

530 

JSR 

534 

JSR 

54C 

JSR 

544 

JSR 

550 

JSR 

554 

JSR 

560 

JSR 

564 

JSR 

570 

JSR 

574 

JSR 

600 

JSR 

604 

JSR 

610 

JSR 

614 

JSR 

620 

^SR 

624 

JSR 

630 

JSR 

634 

JSR 

640 

JSR 

644 

JSR 

650 

JSR 

654 

JSR 

660 

JSR 

664 

JSR 

670 



PC.(R5) 

PC,(R5) 

PC,(R5) 

PC.CR5) 

PC,(R5> 

PC,(R5) 

PC,(A5) 

PC,(R5> 

Pl,(R5) 

PC,(R5) 

PC,(R5) 

PC,(R5> 

PC,(R5> 

PC,<R5) 

PC,(R5) 

PC,(R5) 

PC,(R5) 

PC,(R5) 

PC, (R5) 

PC,<R5) 

PC,(R5> 

PC, W5> 

PC,(R5) 

PC,(R5) 

PC,(R5) 

PCJR5) 

PC,(R5) 

PC,(R5) 



VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VICTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 

VECTOR 



UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIOUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIOUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIQUENESS 
UNIOUENESS 
UNIQUENFSS 
UNIQUENESS 
UNIQUENESS 



TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST. 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 
TEST, 



INT. 
INT, 
INT. 
INT. 
INT. 
INT. 
INT. 
INT, 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 
INT. 



SERV RTN 
SERV RTN 
SERV RTN 
SIR^ RTN 
SERV RTN! 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV rtTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV RTN 
SERV R1N 
SERV RTN 



GPA 

GPA 

GPA 

GPA 

GP* 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 

GPA 



CVDRDB DRV1U DIAG TST 


PRT2 


CVDRDB, 


P11 10-AUG-81 


10:52 


1408 


012632 


004715 




1409 


012634 


000674 




WO 








1411 








1412 








1413 








1414 








1415 








1416 








1417 








1418 


01 263o 


001 


376 


1419 


012640 


002 


375 


1420 


012642 


004 


373 


142) 


012644 


010 


367 


1422 


012646 


020 


357 


1423 


012650 


040 


337 


1424 


012652 


100 


277 


1425 


012654 


200 


Ml 


1426 


012656 


000000 




1427 








1428 
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SEG 0045 



1NT63: 



JS.R 
674 



PC,(R5) ; VECTOR UNIQUENESS TEST, INT. SERV RTN ;;6PA 



SBTTL PATTERNS FOR REGISTER R/W 

PAi TERNS U1ED FOR LOADING/READING REGISTERS 
JSR INTERRUPT SERVICE REGISTER 
IRR INTERRUPT REQUEST REGISTER 
I MR INTERRUPT MASK REGISTER 



BGCHP3: 



EDCHP3: 



.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
000000 



1,376 

2,375 

4,373 

1U,367 

20,357 

40.337 

100,277 

200,177 



_.J 



CVDRDB DRV11J 
CVDRDB.P11 



1430 
1431 
1432 
(1) 
(2) 
(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
CD 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



DIAG TST PRT2 
10-AUG-81 10:52 
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SEG 0046 



012660 

012664 

012666 

012670 

012672 

012674 

012700 

012706 

012710 

012716 

012720 

012724 

012730 

012732 

012740 

012742 

012744 

012746 

012750 

012752 

012756 

012760 

012764 

012766 

012772 

012774 

012776 

013000 

013002 

013006 

013010 

013014 

013020 

013022 

013026 
013032 



105737 

100002 

000000 

000430 

010046 

017600 

122737 

001011 

132737 

001405 

1 0037 

00473/ 

000000 

132737 

001003 

112046 

001005 

005726 

012600 

062716 

000002 

122716 

001430 

122716 

001006 

005726 

104401 

002165 

105037 

000755 

004737 

123726 

001350 

013746 

105366 
002770 



002157 



000002 

000001 002210 

000100 002c,' i 

0127^0 
013222 

000040 002211 



000002 
000011 
000200 

013210 

013072 
002156 

002154 

000001 



.S8TTL SYSMAC ROUTINES 
.S8TTL TYPE ROUTINE 

• »iiit*iiititii* ************* ****** ****************** ********** ******** 
♦'♦ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE. 
;*THE ROUTINE Wit L INSERT A NUM8ER OF NULL CHARACTERS AFTER A LINE FEED. 
;*N0TE1: SNULL CONTAINS THE CHARACTER TO BE US^D AS THE FILLER CHARACTER. 
;*N0TE2: SPILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
;*N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 

;* 

;*CALL: 

;*1) USING A 

;* TYPE 

;*0R 

;* TYPE 

:* ME S ADR 



TRAP INSTRUCTION 
,MESADR 



;;MESADR IS FIRST ADDRESS OF AN ASCU STRING 



$TYPE: 



1$: 



61$: 
62$: 

2$: 



uO$: 
3$: 

4$: 



5$: 
6f. 



7$: 



TST8 

BPL 

HALT 

BR 

MOV 

MOV 

CMPB 

NE 
BITS 
BEQ 
MOV 
JSR 
.WORD 
BITS 
BNE 
MOVB 
BNE 
TST 
MOV 
ADD 
RTI 
CMPB 
BEO 
CMPB 
BNE 
TST 
TYPE 
SCRLF 
CLRB 
BR 
JSR 
CMPB 
BNE 
MOV 

DEC8 
BLT 



STPFLG 
1$ 

3$ 

R<V<SP) 

92<SP),R0 
*APTENV,$ENV 

62* 

*APTSK>OL,$ENVM 

62$ 

R0,61$ 

PC.5ATY3 



*APTCSUP,*ENVM 

60$ 

(ho>+,-(sp> 

4.. 

<;>p.+ 

(SP)+, RO 
02, (SP) 

tfHT.iSP) 

8$ 

#CRLF,(SP) 

5$ 

(5P) + 



$CHARCNT 

2$ 

PC.STYPEC 

$FILLC,(SP)+ 

2$ 

SNULL. -(SP) 

KSP) 
6$ 



IS THERE A TERMINAL? 

BR IF YES 

HALT HERE IF NO TERMINAL 

LEAVE 

SAVE RO 

GET ADDRESS OF ASCIZ STRING 

RUNNING IN APT MODE 

NO. GO CHECK FOR APT CONSOLE 

SPOOL MESSAGE TO APT 

NO. GO CHECK FOR CONSOLE 

SZVV MESSAGE ADDRESS FOR APT 

SPOOL MESSAGE TO APT 

MESSAGE ADDRESS 

APT CONSOLE SUPPRESSED 

YES, SKIP TYPE OUT 

PUCH CHARACTER TO BE TYPED UNTO SjTACK 

BR IF IT ISN'T THE TERMINATOR 

IF TERMINATOR POP IT OFF THE STACK 

RESTORE RO 

ADJUST RETURN PC 

RETURN 

BRANCH IF <HT> 

BRANCH IF NOT <CRLF> 

POP <CRXLF> EQUIV 
TVPE A CR AND LF 

CLEAR CHARACTER COUNT 

GET NEXT CHARACTER 

GO TYPE THIS CHARACTER 

IS IT TIME FOR FILLER CHARS.? 

IF NO GO GET NEXT CHAR. 

GET # OF FILLER CHARS. NEEDED 

AND THE NULL CHAR. 

DOES A NULL NEED TO BE TYPED? 

BR IF NO—GO POP THE NULL OFF OF STALK 



CVDRDB DRW J 
CVDRDB.P11 



D1AG TST PRT2 
10-AUG-81 10:52 
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I A 

PAGE 



(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1) 

<1> 

(1) 

(1) 

(1) 

(i) 

(1) 

(1) 

(1) 

r.) 
(D 
(i) 
(D 
(i) 

1433 
(1) 

(2) 
<1) 
(1) 
(1) 

ci; 

<3; 
(3) 
(1) 
il) 
(1) 
(1) 



013034 
013040 
013044 



013046 
013052 
013056 
013064 
013066 
013070 
013072 
C'3072 
013076 
013100 
013104 
01311G 
013114 
013116 
013116 
013122 
013124 
013130 
013134 
013140 
013142 
013142 
013144 
013144 
013150 
013152 
013160 
013166 
013170 
013174 
013176 
013204 
013206 
013210 
013212 



013214 
013222 
01 3230 
013232 
013240 
013240 
013242 
013244 
0132*0 
0132*2 
013260 



004737 013072 
10S337 013210 
000/70 



112716 OOOC40 
004737 01307c 
132737 000007 
001372 
005726 
000724 

105777 167046 

100022 

017746 167042 

042716 177600 

122716 000023 

00101^ 

105777 167022 

100375 

117716 167016 

042716 177600 

122716 000021 

001366 

005726 

1057/7 167000 

1 00375 

116677 

122766 

001003 

105037 

000406 

122766 

001402 

105227 

000000 

000207 



JSR 

DEC8 

BR 



PC,$TYPfc*C 

SCHAPlrtT 

7$ 



♦•HORIZONTAL TAB PROCESSOR 



013210 



000002 
00C015 

013210 



112737 
112737 
000403 
112737 

010046 
010146 
105737 
001450 
122737 
001031 



000001 
000001 



166772 
000002 



013460 

013456 



000001 013460 



013456 

000001 002210 



8$: 

9$: 



ITYPEC: 



101V 



102%: 
10$: 



MOVB 

JSR 

BITB 

BNE 

TST 

BR 

TSTB 

BPL 

MOV 

BIC 

CMPB 

BNE 

TSTB 

BPL 

M0V8 

BIC 

CMPB 

BNE 

TST 



O00012 000002 1$: 



TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 
CMPB 
BEO 
INCB 
$CHARCNT:.WORD 
STVPEX: RTS 



#' ASP) 

PCSTYPEC 

#7,$CHARCNT 

9$ 

(SP) + 

2$ 

3$TKS 

10$ 

a$TKB t -(SP) 

#177600, (SP) 

*$XOFF,(SP) 

102$ 

9$TKS 

101$ 

a$TKB.(SP) 

#177660, <SP; 

#SXON,(SP) 

101$ 

($P) + 

MTPS 
10$ 

2(SP),a$TPT 
#CR,2(SP) 

1$ 

$CHARCNT 

$TYPEX 

#LF,2(SP) 

$TYPEX 

(PC) + 



PC 



2-24 



GO TYPE A NULL 

DO NOT COUNT AS A COUNT 

LOOP 



;;REPLACE TAB WITH SPACE 
;;TYPE A SPACE 
-BRANCH IF NOT AT 
;,TAB STOP 

;;POP SPACE OFF STACK 
;;GET NEXT CHARACTER 

;;CHAR IN KYBD BUFFER? 

;;BR )F NOT 

;;GET CHAR 

;; STRIP EXTRANEOUS BITS 

;;WAS CHAR XOFF 

;;BR IF NOT 

;;WAIT FOR CHAR 

;;GET CHAR 
;;STRIP IT 
;;'J4£ IT XON? 
;;BR IF NOT 

;;F1X STACK 

;;WAIT UNTIL PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO MTA REG. 

:;\S CHARACTER A CARRIAGE RETURN? 

;; BRANCH If NO 

;; YES— CLEAR CHARACTER COUNT 

;;EXIT 

;;IS CRf'ACTER A LINE FEED? 

;;BRANCH IF YES 

;; COUNT THE CHARACTER 

;; CHARACTER COUNT STORAGE 



SEQ 0047 



MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 
MJD0C1 
MJD001 
MJD001 
MJD001 
MJD001 
MJD001 

;MJD001 



•SBTTL APT COMMUNICATIONS ROUTINE 



$ATY1: 
$AfY3: 

SATY4; 

$ATYC: 



MOVB JM.SFFLG 

MOVB #1,$MFLG 

BR $ATYC 

MOVB #1,$FFLG 

MOV RO,-(SP) 

MOV RI.-(SP) 

TSTB $MFLG 

BEQ 5$ 

CMP8 #APTENV,$ENV 

BNE 3$ 



;;T0 REPORT FATAL ERROR 
;;T0 TYPE A MESSAGE 

;;T0 ONLY REPORT FATAL t : .*OR 

;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
;; SHOULD TYPE A MESSAGE? 
;;IF NOT: BR 
;;OPERATING UNDER APf? 
;;U NOT: BR 



1 



CVDRDB DRV11J 
CVDRDB.P11 



D1AG TST PRT2 
10-AUG-81 10:52 



J 4 
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SEQ 0048 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1> 

n> 
<)) 
d: 

(5) 
(3> 
(1J 
(1) 
(1) 
(1) 

<r 

(!) 
(1) 
(I) 
M) 
1434 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



013262 
013270 
013272 
013276 
013304 
013310 
013312 
013316 
013320 
013322 
01332l 
013330 
013334 
013342 
01*344 
013352 
013360 
013364 
013370 
013372 
013372 
013376 
013400 
013404 
013406 
013412 
013414 
013422 
C134:-0 
01543* 
013441 
01*444 
Oi34S0 

013452 
CH45* 

01 w. 
013457 
013460 



132?!7 000100 

001425 

017600 000004 

062766 000002 

005737 002170 

001375 

010037 002204 

105720 

001376 

163700 002204 



006200 
010037 
012737 
000413 
017637 
062766 
013746 
004737 
000000 

1057V 

OOUiu 
005737 
001413 
C05737 
001375 
017637 
062766 
DOS 237 
1C50V 
10J037 
105037 
012601 
012600 
000207 
000 
000 
000 
1 346? 
000201) 
00000 i 
000 ICO 
000040 



002206 
000004 

000004 
000002 
177776 
012660 



3460 

002210 

002170 

000004 
000002 
002170 
013460 

013457 
01i456 



002211 
000004 



002170 

013370 
000004 



002172 
000004 



1$: 



2$: 



3$: 



4$: 

5$: 
10$: 



BITS 

BEQ 

MOV 

ADD 

TST 

BNE 

MOV 

TST8 

BNE 

sue 

ASR 

MOV 

MOV 

BR 

MOV 

ADD 

MOV 

JSR 

.WORD 



TST8 
BEO 
TST 
BEQ 
11$: TST 
BNE 
MOV 
ADD 
INC 
12$: CLRB 
CLRB 
Cltffl 
MOV 
MOV 
RTS 
WKG: .EYTE 
SLFLG: .rtYTE 
Srf'Lfi: .HY1E 
.EVEN 

APUNV-001 
APTSP0OL=iU0 
APTfSUP=040 
.S8TTL BINARY 



0APTSPOOL,$ENVM 
3S 

a4(SP),R0 

*2,4(SP) 

SMSGTYPE 

1$ 

RO,$MSGAD 

(R0) + 

2$ 

$MS6AD„R0 

RO 

RO,$MSGLGT 

*4,$MSGTYPE 

5$ 

94(SP>,4$ 

#2 4(SP) 

177776, -<SP) 

PC.STYPE 



$FFLG 

12$ 

$ENV 

12$ 

$MSGTYPE 

11$ 

*4<SP),$FATAL 

#2.4(SP) 

$MSGTYPE 

$FFLG 

$LFLG 

$MFLG 

(sro + ,Ri 

CSP)+,RO 

PC 






;; SHOULD SPOOL MESSAGES? 
;;JF NOT: BR 
;;GET MESSAGE ADDR, 

;;8UMP RETURN ADDR. 
;;SEE IF DONE W/ 'AST XMISSION? 
;;1F NOT: WAIT 
;;PUT ADDR IN MAILBOX 
;;FIND END OF MESSAGE 

;;SU8 START OF MESSAGE 
;;GET MESSAGE LNGTH IN WORDS 
;;PUT LENGTH IN MAILBOX 
;;TELL APT TO TAKE MSG. 

;;PUT MSG ADDR IN JSR LINKAGE 
;;BUMP RETURN ADDRESS 
;;PUSH 177776 ON STACK 
;;CALL TYPE MACRO 



APT? 



SHOULD REPORT FATAL ERROR? 

IF NOT: BR 

RUNNING UNDER 

IF NOT: BR 

FINISHED LAST MESSAGE? 

If NOT: WAIT 

GET ERROR * 

;;BUMP RETURN ADDR. 
TELL APT TO TAKE ERROR 
CLEAR FATAL FLAG 
CLEAR LOG FLAG 
CLEAR MESSAGE FLAG 
POP STACK INTO R1 
POP STACK INTO RO 
RETURN 
rtcSSG. FLAG 
LOG fLAG 
FATAL FLAG 



TO OCTAL (ASCII J AND TYPE 



******* ************ -4******************4*****1***** ************** 

♦HIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY MJHBER TO A 6-DIGIT 



*0C<4L (ASCII) NUMBER 
*$TYPOS— - ENTER 
♦CALL: 

* MOV 

* TYPOS 

* .BYTE 

* .BYTE 

* 

* 



AND TYPE IT. 



HEAE TO St TUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE 

NUM,~(SP> 

;;CALL FOR TYPEOUT 

OF DIGITS TO TYPE 



NUMBER TO BE TYPED 
CALL FOR TYPEOUT 
N-1 TO 6 FOR NUMBER 
M~1 OR 

;;1-TYPE LEADING ZEROS 



;;0=:SUPPRESS LEADING ZEROS 



CVDRDB 1 


)RV1U DJAG 1ST 1 


3 RT2 


CVDRDQ.P11 10-AUG-81 


10:52 


<1) 








(1) 








(1) 








<1> 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 


013462 


017646 


000000 


(1) 


013466 


116637 


000001 


(1) 


013474 


112637 


013707 


(1) 


013500 


062716 


000002 


(1) 


013504 


000406 




(1) 


01350o 


112737 


00000 1 


(1) 


013514 


112737 


000006 


(1) 


013522 


112737 


000005 


(1) 


013530 


010346 




(1) 


01353? 


010446 




(1) 


013534 


010546 




(1) 


013536 


113704 


013707 


(1) 


013542 


005404 




(1) 


013544 


062704 


000006 


<1) 


013550 


110437 


013706 


(1) 


013554 


113704 


013705 


<1> 


013560 


016605 


U00012 


(1) 


013564 


005003 




<1> 


013566 


006105 




(1) 


013570 


000404 




(1) 


01357? 


006105 




(1) 


013574 


006105 




(1) 


013576 


006105 




(1) 


013600 


010503 




(1) 


013602 


006103 




(1) 


013604 


105337 


013706 


(1) 


013610 


100016 




(1) 


013612 


042703 


177770 


(1) 


013616 


001002 




(1) 


013620 


005704 




(1) 


013622 


001403 




(1) 


013624 


005204 




(1) 


013626 


052703 


000060 


(1) 


013632 


052703 


000040 


(1) 


013636 


110337 


013702 


(1) 


013642 


104401 


013702 


(1) 


013646 


105337 


013704 


(1) 


013652 


003347 




(1) 


013654 


002402 




(1) 


013656 


005204 




(1) 


013660 


000^44 




(1) 


013662 


012605 




(1) 


01366; 


012604 




(1) 


013666 


012603 





MACY11 
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SEG 0049 



*$TYPON ENTER HL'RE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*STYPOS OR $TYPOC 
*CALL; 

* MOV NUM,-(SP> ;; NUMBER TO BE TYPED 

* TYPON ;;CALL FOR TYPEOUT 

*$TYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

*CALL: 

* MOV NUM.-(SP) ;;NUM8ER TO BE TYPED 

* TYPUC ;;CALL FOR TYPEO[)T 



013705 



013705 
013707 
013704 



STYPOS; 

STYPOC 
$TYPON 



1$: 
2$: 

3$: 



4$; 
5$: 

7$: 



6$: 



MOV 3(SP),-(SP) 

MOVB 1(SP),$0FILL 

MOVB (SP)+,S0M0DE+1 

ADD #2.(SP) 

BR STYPON 

MOVB #1 # S0FILL 

MOVB *6,$0MODE+1 

MOVB *5,$0CNT 

MOV R3,-(SP) 

MOV R4. -(SP) 

MOV R5,-(SP) 

MOVB S0M0DE+1,R4 

NEG R4 

ADD #6,R4 

MOVB R4,$0MODE 

MOVB $0FILL,R4 

MOV 12(SP),R5 

CLR R3 

ROL R5 

BR 3$ 

ROL R5 

ROL R5 

ROL R5 

MOV R5,R3 

ROL R3 

DECS SOMODE 

BPL 7$ 

BIC #177770, R3 

BNE 4$ 

TST R4 

BEQ 5$ 

INC R4 

BIS #'0,R3 

BIS #' -R3 

MOVB R3.8S 

TYPE £ 8§ 

DECS SOCNT 

BGT 2$ 

BLT 6$ 

INC R4 

BR 2$ 

MUV ($p)+,R5 

MOV (SP)+, R4 

MOV (5PH, R3 



;PICKUP THE MODE 
;LOAD ZERO FILL SWITCH 
/NUMBER OF DIGITS TO TYPE 
;ADJUST RETURN ADDRESS 

;SFT THE ZERO FILL SWITCH 

;SET FOR SJXC6) DIGITS 

;SET THE ITERATION COUNT 

;SAVE R3 

;SAVE R4 

'SAVE R5 

;GET THE NUMBER OF DIGITS TO TYPE 



/SUBTRACT IT FOR MAX. ALLOWED 
;3AVE IT FOR USE 
;GET THE ZERO FILL SWITCH 
.-PICKUP THE INPUT NUMBER 
; CLEAR THE OUTPUT WORD 
.■ROTATE MSB INTO M C" 
;G0 DO MS8 
;FORM THIS DIGIT 



GET LS8 OF THIS DIGIT 

TYPE THIS DIGIT? 

BR IF NO 

GET RID OF JUNK 

TEST FOR 

SUPPRESS THIS 0? 

8R IF YES 

DON'T SUPPRESS ANYMORE O'S 

MAKE THIS DIGIT ASCII 

MAKE ASCII IF NOT ALREADY 

SAVE FOR TYPING 

GO IYPE THIS DIGIT 

COUNT BY 1 

BR U MORE TO DO 

BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 

GO DO THE LAST DIGIT 

RESTORE R5 

RESTORE R4 

RESTORE R3 



CVDRDB 


DRV11J DIAG TCT f 


3 RT2 


CVDRDB. 


P11 10-AU6-81 


10;52 


(1) 


013670 


016666 


000002 


CD 


013676 


012616 




(1) 


013700 


000002 




(1) 


013702 


000 




(1) 


013703 


000 




(1) 


013704 


000 




(1) 


013705 


000 




(1) 


013706 


000000 




1455 








(1) 








(2) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 








(1) 


013710 






(3) 


013710 


010046 




(3) 


013712 


010146 




<3) 


013714 


010246 




(3) 


013716 


010346 




(3) 


013720 


010546 




(1) 


013722 


012746 


020200 


(1) 


013726 


016605 


000020 


<1) 


013732 


100004 




(1) 


013734 


005405 




(1) 


013736 


112766 


000055 


(1) 


013744 


005000 




(1) 


0)3746 


1 2703 


014124 


(1; 


013752 


112723 


OC0040 


(1) 


013756 


00' '02 




(1) 


013760 


016001 


014114 


(1) 


013764 


160105 




<1) 


0137o6 


002402 




(1) 


013770 


005202 




(1) 


013772 


000774 




(1) 


013774 


060105 




(1) 


013776 


005702 




(1) 


014000 


001002 




(1) 


014002 


105716 




(1) 


014004 


100407 




(1) 


0140C6 


106316 




(1) 


014010 


103003 




(1) 


014012 


116663 


000001 


(1) 


014020 


052702 


000060 


(1) 


014024 


052/02 


000040 


(1) 


01*030 


110223 




(1) 


014032 


005720 




(1) 


014034 


020027 


noooio 


(1) 


014040 


002746 




(1) 


014042 


003002 




(1) 


014044 


010502 





MACY11 



000004 



306(1063) 
BINARY TO 



L 4 
10-AUG-81 11:00 PAGE 
OCTAL (ASCII) AND TYPE 



2-27 



SEQ 0050 



000001 



U7777 



8$: 

$OCNT: 
SOFILL: 
$OMODE: 
.SBTTL 



MOV 

MOV 

RTI 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 

CONVERT 



2(SP),4(SP) 
(SP)+,<SP) 



;;SET THE STACK FOR RETURNING 



;; RETURN 

;;ST0RAGE FOR ASCII DIGIT 

;; TERMINATOR FOR TYPE ROUTINE 

;; OCTAL DIGIT COUNTER 

;;ZER0 FILL SWITCH 

;;NUM8ER OF DIGITS TO TYPE 

BINARY TO DECIMAL AND TYPE ROUTINE 



************************** ****************** ******************** 

* THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
♦NUMBER IS POSITIVE OR NEGATIVE A SPACE 0.? A MINUS SIGN WILL BE TYPED 
♦BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
♦REPLACED WITH SPACES. 

♦CALL: 

* MOV NUM,-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 

* TYPDS ;;G0 TO THE ROUTINE 



$TYPDS: 



1$: 



2$: 
3$: 



4$: 



5$: 



6$: 

7$: 



MOV RO, -(SP) 

MOV R1,-(SP) 

MOV R2,-(SP) 

MOV R3,-(SP) 

MOV R5.-CS?) 

MOV 020200, -(SP) 

MOV 20(SP),R5 

BPL 1$ 

NCG R5 

Mova r-,KSP) 

CLR RO 

MOV #$DBLK,R3 

MOVB #■ ,(R3)+ 

CLR R2 

MOV $DT8L(R0),R1 

SU8 R1,R5 

bLT 4$ 

INC R2 

BR 3S 

ADD R1,R5 

TST R2 

BNE 5$ 

TSTB (SP) 

BMI 7$ 

ASL8 (SP) 

BCC 6S 

MOVB 1CSP) 1 -1(R3) 

BIS #'0,R2 

BIS #' ,R2 

MOVB R2 1 (R3)+ 

TST (R0)+ 

CMP RO.01O 

BLT 25 

ecr 8$ 

MOV R5, R2 



PUSH 


RO ON STACK 


PUSH 


HI f )N STACK 


m-SH 


R2 ON STACK 


PUSH 


R3 ON STACK 


PUSH 


R5 ON STACK 


SET BLANK SWITCH AND SIGN 


GET 


'HE INPUT NUMBER 


BR II 


: INPUT IS POS. 


MAKE 


THE BINARY NUM8ER POS. 


MAKE 


THE f^SCU NUMBER NEG. 


ZERO 


THE CONSTANTS INDEX 


SETUP THE OUTPUT POINTER 


SET , 


'HE FIRST CHARACTER TO A 


CLEAR THE BCD NUM3ER 


GET ' 


HE C0NS1ANT 


FORM 


THIS BCD DIGIT 


BR IF DONE 


INCREASE THE BCD DIGIT BY 1 



BLANK 



ADD BACK THE CONSTANT 

CHECK IF BCD DJGIT=0 

FALL THROUGH IF 

STILL DOING LEADING O'S? 

BR If YES 

MSD? 

BR IF NO 

YES— SET THE SIGN 

MAKE THE BCD DIGIT ASCII 

MAKE IT A SPACE IF NOT ALREADY A DIGIT 

PUT THIS CHARACTER IN THE OUTPUT BUFFER 

JUST INCREMENTING 

CHECK THE TABLE INDEX 

GO DO THE NEXT DIGIT 

GO TO EXIT 

GET THE LSD 



CVDRDB DRV11J 
CVDRDB.P11 



DIAG TST PRT2 
10-AUG-81 10:5? 



M 4 
MACY11 30G(1G63) 10-AUG-81 11:00 PAGE 2-28 

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



SEQ 0051 



(i) 
(1) 
(1) 
(1) 
(1) 
(3) 
(3) 
(3) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1436 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(\ 
.1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(!) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1> 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



014046 

014050 

0H052 
014054 
014062 
014064 
014066 
014070 
014072 
014074 
014076 
014102 
014110 
014112 
014114 
014116 
014120 
014122 
014124 



014134 
014134 
014136 
014140 
014144 
014146 
014154 
014160 
014164 
014172 
014200 
014206 
014210 
014214 
014220 
014220 
014226 
014230 
014236 
014242 
014243 
014244 
014246 
014252 



000764 
105726 
100003 
116663 
105013 
012605 
012603 
012602 
012601 
012600 
104401 
016666 
012616 
000002 
023420 
001750 
000144 
000012 
000004 



10^407 
104407 
105237 
001775 
013777 
005237 
011637 
162737 
1)773? 
052777 
001004 
004737 
1U4401 

122737 
001007 
113737 
004737 
000 
000 
000777 
005777 
100002 



177777 177776 



014124 
000002 



000004 



002103 

002102 
002112 
002116 
000002 
165720 
020000 

014310 
002165 

000001 

002114 
013232 



(65666 



165766 



002116 
002114 
165732 



002210 
014242 



8$: 



9$: 



dR 

T5T8 

8PL 

MOVB 

CLRB 

MOV 

MOV 



$DT8L: 



$D8LK: 
.S8TTL 



MOV 

MOV 

TYPE 

MOV 

MOV 

RTI 

10000, 

1000. 

100. 

10. 

.8UW 

ERROR 



6$ 

(SP) + 

9$ 

-1 <SP), -2<R3) 

(R3) 

(SPH,R5 

(SP)+,R3 

<SP)+,R2 

<SP)+,R1 

<SP)+,RO 

.%bBlK 

2(SP),4(SP) 

(SP)+, (SP) 



GO CHANGE TO ASCII 

WAS THE LSr> THE FIRST NON-ZERO? 

8R IF NO 

YE$~-$ET THE SIGN FOR TYPING 

SET THE TERMINATOR 

POP STACK INTO R5 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

NOW TYPE THE NUMBER 

ADJUST THE STACK 

RETURN TO USER 



4 
HANDLER ROUTINE 



*THiS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 

*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 

*AND GO TO SWRCK ON ERROR 

*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15-1 HALT ON ERROR 

*SW13=1 INHIBIT ERROR TYPEOUTS 

*SW09-1 LOOP ON ERROR 

*CALL 

* ERROR 



N 



;;ERROR=EMT AND N-ERROR ITEM NUMBER 



SERROR: 



7$: 



20$; 



21$: 

22% : 
2$: 



CKSWR 

CKSWR 

INCB 

BEQ 

MOV 

INC 

MOV 

sua 

MOVB 

bj: 

BNE 
JSR 
TYPE 

CMPB 

BNE 

MOVB 

JSR 

.8YTE 

.BYTE 

BR 

TST 

BPL 



;G0 LOOK 
SERFLG 

7$ 

$TSTNM,tfDi SPLAY 

$ERTTL 

(SP), 5ERRPC 

*2,$ERRPC 

a$ERRPC,$ITEMB 

*BIT13,aSWR 

20$ 

PC, SWRCK 

,$CRLF 

*APTENV,$F.NV 

2$ 

$ITEMB,21$ 

PC,$ATY4 





22% 

SSWR 

3$ 



;TCST FOR CHANGE IN SOF -SWR 

FOR SWR CHANGE 

;SET THE ERROR FLAG 

;DON*T LET THE FLAG GO TO ZERO 

;DISPLAY TEST NUMBER AND ERROR FLAG 

;1NC I HE ERROR COUNT 

;GET ADDRESS OF ERROR INSTRUCTION 

iSTRIP AND SAVE THE ERROR ITEM CODE 

;SKIP TYPEOUT if SET 

;SKIP TYPEOUTS 

;G0 TO USER ERROR ROUTINE 



RUNNING IN APT NODE 

NO, SKIP APT ERROR REPORT 

SET ITEM NUMBER AS ERROR NUMBER 

REPORT FATAL ERROR TO APT 



APT ERROR LOOP 
HALT ON ERROR 
SKIP IF CONTINUE 



CVDRDB 
CVDRDB 

(1) 
<1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

1438 

1459 

1440 

1441 

1442 

1443 

1444 

1445 

(1) 

(2) 

(1) 

(1) 

(1) 

<1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(2) 

(2) 

(2) 

(1) 

(1) 

(1) 

(1) 

(1) 

<1> 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 

(1) 



0RV1U 
P11 

014254 
014256 
014260 
014266 
014270 
014274 
014300 
014302 
014306 



DIAG TST PRT2 
10-AUG-81 10:52 



MACY11 30G(1063) 

ERROR HA 



000000 
104407 
032777 
001402 
013716 
005737 
001402 
013716 



014306 000002 



014310 
014316 
014322 
014324 



11373/ 
004/37 
10440? 
000207 



014326 
014326 
014332 
014334 
014336 
014342 



014350 
014352 
014354 
014356 
014360 
014362 
014364 
014370 
014374 
014376 
0144G0 
014402 
014406 
01441? 
0144V, 
014416 
014420 
014424 
014426 
014430 
014432 
014436 



104401 
010046 
P05000 
153700 
001004 



014344 013746 



104402 
000426 
005300 
006300 
006300 
006300 
062700 
012037 
001404 
104401 
000000 
104401 
012037 
001404 
104401 
000000 
104401 
011000 
001004 
012600 
104401 
000207 



001000 165652 3$: 



002110 
002162 

002162 



4$: 



5$: 





N 4 


10- 


AUG-81 11:00 PAGE 


NDLER 


ROUTJNE 


HALT 




CKSWR 




BIT 


#BIT09,3SWR 


BEQ 


4$ 


MOV 


$LPERR,(SP) 


TST 


SESCAPE 


BEG 


5$ 


MOV 


SESCAPE, (SP) 



2-29 



SEU 0052 



002102 
014326 



HALT ON ERROR] 

TEST FOR CHANGE IN SOF T-SWR 

LOOP ON ERROR SWITCH SET? 

BR IF NO 

FUDGE RETURN FOR LOOPING 

CHECK FOR AN ESCAPE ADDRESS 

BR If NONE 

FUDGE RETURN ADDRESS FOR ESCAPE 

RTJ ;;RETURN 

GO TYPE ERROR 

GO UPDATE SOFTWARE SWR IF 'CNTRL/G' 



002432 SWRCK: 



002165 
002114 
002116 



002252 
014400 



002165 
014416 



002165 
002165 



Move 


$TSTNM,TSTNUM 


;SET UP TEST * ON FR 


JSR 


PCSERRTYP 


;G0 TYPF ERROR 


CKSWR 




;G0 LOOK FOR SWR CHANGE 


RTS 


PC 


;RETURN TO ERROR HANDLER 



.S8TTL ERROR MESSAGE TYPEOUT ROUTINE 

;'*THIS ROUTINE USES THE "ITEM CONTROL BYTE" <$ITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS. FROM THE "ERROR TABLE 11 (SERRTB) . 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 



"CARRIAGE RETURN" & "LINE FEED" 

SAVE RO 

PICKUP THc ITEM INDEX 

IF ITEM NUMBER IS ZERO. JUST 
TYPE THE PC OF THE ERROR 
SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE— OCTAL ASCII (ALL DIGITS) 
GET OUT 

ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 



;FORM TABLE POINTER 

;PICKUP "ERROR MESSAGE" POINTER 

;SKIP TYPEOUT IF NO POINTER 

;TYPE THE "ERROR MESSAGE" 

; "ERROR MESSAGE" POINTER GOES HERE 

.•"CARRIAGE RETURN" ft "LINE FEED" 

.-PICKUP "DATA HEADER" POINTER 

;SKIP TYPFOUT IF 

;TYPE THE "DATA HEADES" 

;"DATA HEADER" POINTER GOES HER:- 

.•"CARRIAGE RETURN" I "LINE FEED" 

;PICKUP 'DATA TABLE" POINTER 

;G0 TYPE THE DATA 

-RESTORE RO 

;"CARRIAGE RETURN" ft "LINE FEED" 

.-RETURN 



$ERR1 YP 


• 
• 






TYPE 


,$CRLF 




MOV 


RO.-(SP) 




CLR 


RO 




BI£* 


3*$lTL:rtR,R0 




BNE 


1$ 




MOV 


$ERRPC,-(SP) 




^YPOC 






B>. 


6$ 


1$: 


DEC 


RO 




ASL 


RO 




ASL 


RO 




ASL 


RO 




ADD 


0SERRTB.RO 




MOV 


<R0)+,2$ 




BEQ 


3$ 




TYPE 




2$: 


.WORD 







TYPE 


,$CRLF 


3$: 


MOV 


(R0)+,4$ 




BFO 


5$ 




TYPE 




4$: 


.WORD 







TYPE 


MRU 


51 1 


MOV 


(RO).RO 




BNE 


7$ 


6$: 


MOV 


<SP)>, RO 




ty; ■■ 


,$CRLF 




RTS 


PC 



CVDRDB DRV11J 
CVDRDB. P11 



D1AG TST PRVc 
10-AUG-81 10:52 



(1) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1446 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(l; 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 

K.) 
(1) 
(1) 
(1) 
(1) 
(1) 
(D 
(D 

<n 

(i) 
(i) 



014440 
014440 
014442 
014444 
014446 
014450 
014454 
014456 



013046 
104402 
005710 
001 "^O 
104O1 
000771 
0?0040 
014462 



01446? 

014462 
014464 
014472 



014476 
014502 
014510 
014514 
014520 
014522 
014524 
014530 
014532 
014532 
014540 
014542 
014550 
014552 
014556 
014560 
014566 
014570 
014576 
014600 
014606 
014610 
0146K 
014620 
014622 
014630 



104407 
032777 
001114 



014474 000416 



013746 
012737 
005737 
012637 
000463 
022626 
012637 
000423 

032777 
001404 
127737 
OOH65 
10**737 
001421 
123737 
101015 
032777 
001404 
013737 
000446 
105037 
005037 
000415 
032777 
00101 t 



B 5 

MACV11 30GO063) 10-AU6-81 11:00 PAGE 
ERROR MESSAGE TYPEOl'T ROUTINE 

7$: 



014456 
000 



000004 
014522 
177060 
000004 



000004 

000400 

165372 

002103 

002115 

001000 

002110 

002103 
002160 



000004 



165400 
002102 

002103 
165342 

002106 



MOV 


a(RO) + ,~(Sf J ) 


TYPOC 




TST 


<R0^ 


BEQ 


6% 


TYPE 


,8$ 


BR 


h 


.ASCJ2 


1 / 


.EVEN 





8$. 



.SBTTL SCOPl HANDLER ROUTINE 



2-30 



SAVE 3<R0>+ FOR TYPEOUT 

GO TYPE— OCTAL ASCIKALL DIGITS) 

JS THERE ANOTHER NUK3ER? 

BR If NO 

TYPE TU0<2) SPACES 

LOOP 

TW0(2) SPACES 



SEQ 0053 



****** *4***M**********************4****^* *************** ******* 

*THIS ROUTINE CONTRCLS THE LOOPING OF SUBTESTS. IT WILL INCRFMFNT 
*AND LOAD THE TEST NUMBER <*TSTNM) INTO THE DISPLAY REG. <DISPLAY<7;0» 
<*AND LO'D THE ERROR FLAG (SERfLG) INIO DISPLAY<15;08> 
*THE SWiTCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 



*SW14=1 
*SW11=1 
*SW09=1 
*SW08=1 
*CALL 



$ c 



040000 165446 1$: 



SCOPE 

caOPE: 

CKSWR 

BIT 

BNE 

;*****START OF 

SXTSTR: BR 



5$: 



004000 165310 3$: 



MOV 
MOV 
TST 
MOV 
BR 
CMP 
MOV 
BR 
6$:;*****END 
BIT 
BEQ 
CM°B 
BEQ 
TSTB 
BEO 
CMPB 
BHI 
BIT 
BEO 
MOV 
BR 

CLRB 
CLR 
BR 
BJT 
BNE 



o: 



2$. 



7$: 



'#$: 



LOOP ON TEST 

INHIBIT ITERATIONS 

LOOP ON ERROR 

LOOP ON TEST IN SWR<7;0> 

;;SCOPE~IOT 



*BIT14,SSWR 
SOVER 
CODE FOR THE 
6S 



KOR 



3*ERRVEC,-(SP) 

*5$,a*ERRVEC 

3*1 77060 

( r >P) + ,3*CRRVEC 

iSVLAD 

($P)+, (SP)+ 

<SP>+, 3*ERRVEC 

7$ 

r-JOt FOR THE XOR 

#BIT08.aSWR 

2$ 

aSWR,$TSTNM 

$OVER 

SERFLG 

3$ 

SERHAX, SERFLG 

3$ 

*8JT09,aSUR 

4$ 

$LPERR,SLPADR 

SOVER 

SERFLG 

STIMES 

1$ 

*BITl1,aSWR 

1$ 



TEST FOR CHANGE IN SOFT-SWR 
LOOP ON PRESENT TEST? 
YES IF SW14=1 
TESTER***** 

If RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A 'W <NOP=240) 
SAVr THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 
RESTORE THF ERROR VECTOR 
GO TO 1HE NEXT TEST 
CLEAR THE STACK AFTER A TIME OUT 
RESTORE THE ERROR VECTOR 
LOOP ON THE PRESENT TEST 
TESTER***** 
LOOP ON SPEC. TEST? 
BR IF NO 

ON THE RIGHT TEST? SWR<7:0> 
8R IF YES 

HAS AN E^ROR OCCURRED? 
BR IF NO 

MAX. ERRORS FOR THIS TEST OCCURRED? 
BR If NO 
LOOP ON ERROR? 
BR If NO 
SET LOOP ADDRESS TO LAST SCOPE 

ZERO THE ERROR FLAG 

CLEAR the NUMBER OF ITERATIONS TO MAKE 

ESCAPE TO THE NfXT TEST 

INHIBIT ITERATIONS? 

8R IF YES 



C 5 

















C 5 


CVDKDB 


0HV11J DIA6 TST 


PRT2 


MACY11 


30G(1063 


) 10-AUG-81 11 tOO PAGE 


CVDR'»B. 


P11 i 


0-AUG-81 


10:52 




SCOPE HANDLER 


RUUTJNE 


(1) 


014632 


005737 


002176 






TST 


$PA3S 


(1) 


014636 


001406 








BEO 


1$ 


(1) 


014640 


005237 


002104 






INC 


SICNT 


(1) 


014644 


023737 


002160 


002104 




CMP 


$TIMES,$2CNT 


(1) 


014652 


002024 








BGE 


$OVER 


(1) 


014654 


012737 


000001 


002104 


1$: 


MOV 


*1 # SICNT 


(1) 


014662 


013737 


014740 


002160 




MOV 


$MXCNT,$TIMES 


(1) 


014670 


105237 


002102 




SSVLAD: 


INCB 


STSTNM 


(1) 


01467*'* 


113737 


002102 


002174 




M0V8 


$TSTNM,$TESTN 


(1) 


014/02 


011637 


002106 






MOV 


(SP), $LPADR 


CD 


014706 


011637 


002110 






MOV 


(SP), SLPERR 


n> 


014712 


005037 


002162 






CLR 


SESCAPE 


<i> 


014716 


112737 


000001 


002115 




MOVB 


*1 # $ERMAX 


(1) 


014724 


013777 


002102 


165210 


$OVER: 


MOV 


$TSTNM,dDISPLAY 


(1) 


014732 


013716 


002106 






MOV 


$LPADR,(SP> 


(1) 


014736 


000002 








RTJ 




(1) 


014740 


000001 






$MXCNT: 


1. 




1447 










.SBTTL 


TTY INPUT ROUTINE 



(1) 

(2) 
<1) 
(1) 
(2) 
(1) 
(D 
(I) 
<1> 
(1) 
(1) 
(1) 
(1) 
(1i 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 



014742 


022737 


000176 002140 


kKSWR; 


CMP 


*SWREG,SWR 


014750 


001074 






BNC 


15$ 


014752 


105777 


165166 




TSTG 


9$TKS 


014756 


100071 






BPL 


15$ 


014760 


117746 


165162 




MOVB 


a$TKB,-(SP) 
#*C177,<SP) 

15* 


014764 


042716 


177600 




BIC 


014770 


02^726 


000007 




CMP 


014774 


00I062 






BNE 


014776 


123727 


002134 000001 




CMPB 


$AUT0B,#1 


015004 


001456 






BEQ 


15$ 


015006 


104401 


015477 




Titpe 


,$CNTLG 


015012 


104401 


015504 


SGTSWR: 


TYPE 


,$MSWR 


015016 


013746 


OC0176 




MOV 


SWREG,-(SP) 


015022 


104402 






TYPOC 




015024 


104401 


015515 




TYPE 


,$MNE. 


015030 


005046 




19$: 


CLR 


-(SP) 


015032 


005046 






CLR 


-(SP) 


015034 


105777 


165104 


7$; 


TSTB 


a$TKS 


015040 


100375 






BPL 


7$ 


015C42 


117746 


165100 




MOVB 


3$TK8 4 -(SP) 
* A C177,(SP) 


01 50' 6 


042716 


177600 




BIC 


015052 


021627 


000025 


9$: 


CMP 


(SP), #25 


015056 


001005 






BNE 


10$ 


015060 


1044C 1 


015472 




TYPE 


,$CNTLU 



2-31 



IF FIRST PASS OF PROGRAM 
INHIBIT ITERATIONS 
INCREMENT ITERATION COUNT 
CHECK THE NUMBER OF ITERATIONS MADE 
8R IF MORE ITERATION REQUIRED 
REINITIALIZE THE ITERATION COUNTER 
SET NUMBER OF ITERATIONS TO DO 
COUNT TEST NUMBERS 
SET TEST NUMBER IN APT MAILBOX 
SAVE SCOPE LOOP ADDRESS 
SAVE £RROR LOOP ADDRESS 
CLEAR THE ESCAPE FROM ERROR ADDRESS 
ONLY ALLOW ONE(I) ERROR ON NEXT TEST 
DISPLAY TEST NUMBER 
FUDGE RETURN ADDRESS 
pjXES PS 
MAX. NUMBER OF ITERATIONS 



************** ***********************************%*m************ 
'.ENABL LSB 

;*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
."ROUTINE IS ENTERED FROM THE TRAP HANDLER, i HO WILL 
;*SERVICF THE TEST FOR CHANGE IN SOFTWARE SW TCH REGISTER TRAP CALL 
*WHEN OPERATING IN TTY FLAG MODF 

IS THE SOFT-SWR SELECTED? 

BRANCH IF NO 

CHAR THERE? 

IF NO, DON'T WAIT AROUND 

SAVE THE CHAR 

STRIP-OFF THE ASCII 

IS IT A CONTROL G? 

NO, RETURN TO USER 

ARE WE RUNNING IN AUTO-MODE? 

BRANCH IF YES 

ECHO THE lONTROL-G < A G) 

TYPE CURRENT CONTENTS 

SAVE SWREG FOR TYPEOUT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 

PROMPT FOR NEW SWR 

CLEAR COUNTER 

THE NEW SWR 

CHAR THERE? 

IF NOT TRY AGAIN 



SEQ 0054 



;;PICK 

;;MAKE 



UP 

IT 



IHAR 
7-BIT 



ASCII 



IS IT A CONTROL-U? 

BRANCH IF NOT 

YFS, ECHO CONTROL-U <*U) 



CVDRDB DRV11J 
CVDRDB-P11 



0) 
(1) 
(1) 

(i; 

(D 

(D 

(i) 

(i) 

(D 

(D 

(i) 

(D 

(D 

(i) 

d) 

d) 

(D 

(D 

n> 

n> 

(D 

(i) 

d) 

d) 

d) 

(1) 

(D 

(i) 

(i) 

(D 

<i> 

(D 

(i) 

(D 

(2) 
(1) 
(1) 
(1) 
vl) 
(1) 
(1) 
(?) 
U) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
ri) 
(1) 
(1) 



015064 
015070 



DIAG TST PRT2 
10-AUG-81 10:52 

062706 000006 
000757 



MACY11 



015072 
015076 
015100 
015104 
015106 
015114 
C15120 
015124 
015132 
015134 
015142 
015144 
015150 
015154 
015156 
015162 
0iS164 
015170 
015174 
015176 
015200 
015202 
015204 
01521C 
015214 
015216 
015222 



015224 
015226 
015234 
015240 
015242 
015250 
015256 
015264 
015266 
015272 
015274 
015300 
015304 
015310 



021627 

001022 

005766 

001403 

016677 

062706 

104401 

12372/ 

001003 

012777 

000002 

004737 

021627 

002420 

021627 

003015 

042726 

005766 

001403 

006316 

006316 

006316 

005266 

056616 

000707 

104401 

000720 



011646 
016666 
105777 
100375 
117766 
042766 
026627 
001013 
105777 
100375 
117746 
042716 
022627 
001366 



000015 

000004 

000002 
000006 
002165 
002135 

000100 

013072 

000060 

000067 

000060 
000002 



000002 
177776 

002164 



30G(1063) 
TTY INPUT 



10-AUG-81 
ROUTINE 



11:00 



D 5 

PAGt 



2-32 



SEQ 0055 



i 65024 

000001 
165002 



000004 000002 
164704 



164700 
177603 
000004 

16<652 

164646 
1776U0 
000021 



000004 
000004 
000023 



2031: ADD 06-SP 
8R 1 9i 



10$: CMP (SP),*15 

BNE 16$ 

TST 4(SP) 

Bt'Q 11$ 

MOV 2(SP) ,3SWR 

11$: ADD #6,SP 

14$: TYPE ,$CRLF 

CMPB $INTAG,#1 

BNE 15$ 

MOV *1Q0,a$US 
15$: RTI 

16$: JSR PCSTYPEC 

CMP <SP),*oO 

BLT 18$ 

CMP (SP),*67 

BGT 18$ 

BIC ^60,(SP)+ 

TST 2(SP) 

BEQ 17$ 

ASL (SP) 

ASL (SP) 

ASL (SP) 

17$: INC 2vSP) 

BIS -2CSPMSP) 

BR 7$ 

18$: TYPE ,$QUES 

BR 20$ 
.DSABL LSB 



;; IGNORE PREVIOUS INPUT 
;;LET'S TRY IT AGAIN 



IS IT A <CR>? 

BRANCH IF NO 

YES, IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-EN4BLE TTY KBD INTERRUPTS? 

BRANCH IF NOT 

RE-ENA8LE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 

CHAR > 7? 

BRANCH IF YES 

STRIP-OKF ASCII 

IS THIS THE FIRST CHAR 

BRANCH IF YES 

NO, SHIFT PRESENT 

CHAR OVER TO MAKE 

ROOM FOR NEW ONE. 
KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THt NEXT ONE 
TYPE ?<CRXLF> 
SIMULATE CONTRQL-U 



;***************** ***^**** *************************************** 

*TH1S ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
*CALL: 



$RDCHR: 
1$: 



2$: 



RDCHR 
RETURN HERE 



MOV (SP) f -(Sr>) 

MOV 4<SP),2(SP> 

TSTB 3$TKS 

6PL 1$ 

M0V3 a$TKB <t(SP) 

BIC #*C<177>. 4(SP) 

CMP 4<SP),#23 

BNE 3$ 

TST8 S$TKS 

BPL 2$ 

MOVB a$TKB,-(SP) 

BIC /TC177, (SP) 

CMP (SP)+,#21 

BNE 2$ 



INPUT A SINGLE CHARACTER FROM THE TTY 
CHARACTER IS ON THE STACK 
WITH PARITY BIT STRIPPED O^F 



PUSH DOWN THE PC 

SAVE THE PS 

WAIT FOR 

A CHARACTER 

READ THE TTY 

GET RID OF JUNK IF ANY 

IS IT A CONTROL-S? 

BRANCH IF NO 

WAIT FOR A CHARACTER 

LOOP UNTIL ITS THERE 

GET CHARACTER 

MAKE IT 7-BIT ASCII 

IS H A CONTROL-Q? 

IF NOT DISCARD IT 






CVDRDB DRV11J 
CVDRDB.P11 



(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 

n) 
d) 

d) 
d) 
(D 
(D 
(D 
d) 
(i) 
(D 
(i) 
(D 
(D 

M) 

(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
O) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
1448 
(1) 
(2) 
(1) 
(1) 

m 

(3) 
(3) 
(3) 
(3) 
(3) 
(3) 



DIAG TST PRT2 
1 O-AUG-81 10:52 

015312 000750 

015314 026627 000004 

015322 001744 

015324 026627 000004 

015332 C02407 

015334 026627 000004 

015342 003003 

015344 042766 000040 

015352 000002 



015354 
015356 
015362 
015366 
015370 
015372 
015374 
015400 
015402 
015406 
015410 
015414 
015420 
015424 
015426 
015432 
015436 
015440 
015442 
015450 
015456 
015460 
015461 
015461? 
015472 
015477 
015504 
015515 



015526 
015534 
015542 
015544 
0*5546 
015550 
015552 
015554 



010346 
012703 
022703 
101405 
104410 
112613 
122713 
001003 
104401 
000763 
111337 
104401 
122723 
0U1356 
105063 
104401 
012603 
011646 
016666 
012766 
000002 

000 

000 
000010 
052536 

136 
005015 

040 



012737 
012737 
010046 
010146 
010246 
010346 
010446 
010546 



015462 
015472 



000177 

002164 

015460 
015460 
000015 

M7777 
002166 



000004 
015462 



005015 
006507 
053523 
047040 



015672 
000340 



MACY11 

U00021 
000140 
000175 
000004 



306(1063) 
TTY INPUT 



1 O-AUG-81 
ROUTINE 



11:00 



E 5 
PAGE 



000002 
OOOOOh 



000 
00Cw»2 
020122 
053505 



000024 
000026 



BR 1$ 

3$: CMP 4 (SP), *$XON 

BEQ 1$ 

CMP 4(SP),*140 

BLf 4$ 

CMP 4(SP),#175 

BGT 4$ 

BIC #40,4(SP) 
RTJ 



2-35 



YES, RESUME 

IS IT A RANDOM XON? 

BRANCH IF YES 

IS IT UPPER CASE? 

BRANCH IF YES 

IS IT A SPECIAL CHAR? 

8RANCH IF YES 

MAKE I'' UPPER CASE 

GO BACK TO USER 



SEQ 0056 



;RAN001 
;RAN001 



4$: 

• ******* ************** ************ ******************************* 

;*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

;*CALL 

;* 

;* 

• * 



RDLIN 
RETURN HERE 



1HP\JT A STRING FROM THE TTY 

ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 

TERMINATOR WILL BE A BYTE OF ALL O'S 



SRDLIN: 

1$: 

2$: 



10$: 

4$: 

3$: 



9$: 

STTYIN 
SCNTLU 
$CNTLG 
SMSWR: 
$MNEW: 
.S8TTL 



MOV R3,-(SP) 

MOV #$TTYIN,R3 

CMP #$TTYIN+8.,R3 ; 

BLOS 4$ 

RDCHR 

MOVB (SP)+, (R3) 

CMP8 *1 77, (R3) ; 

BNE 3$ 

TYPE ,$QUES 

BR 1$ 

MOVB <R3),9$ 

TYPE ,9$ 

CMP8 #15,(R3>+ 

BNE 2$ 

CLRB -KR3) 

TYPE ,$LF 

NOV (SP)+, R3 

MOV <SP), -<SP) 

MOV 4<SP,,2(SP) 

MOV #$TTY1N,4(SP) 

RTI 

.BYTE 

.BYTE 

.BLKB 8. 

.ASCIZ /*U/<15x12> 

.ASCIZ /*G/<15X12> 

.ASCII <15><12>/bWR = / 

.ASCIZ / NEW = / 

POWER DOWN AND UP ROUTINE 



SAVE R3 

GET ADDRESS 

BUFFER FULL? 

BR IF YES 

GO READ ONE CHARACTER FROM THE TTY 

GET CHARACTER 

IS IT A RUBOUT 

SKIP IF NOT 

TYPE A '?* 

CLEAR THE BUFFER AND LOOP 

ECHO THE CHARACTER 

CHECK FOR RETURN 
LOOP IF NOT RETURN 
CLEAR RETURN (THE 15) 
TYPE A LINE FEED 
RESTORE R3 

ADJUST THE STACK AND PUT ADDRESS OF 
FIRST ASCII CHARACTER ON IT 

RETURN 

STORAGE FOR ASCII CHAR. TO TYPE 

TERMINATOR 

RESERVE 8 BYTES FOR TTY INPUT 

CONTRO'. '\T 

CONTROL "G" 



THE 



S 



*************************************************************** 
POWER DOWN ROUTINE 



IPWRDN; MOV #$ILLUP,d#PWRVEC 

MOV #340,i#PWRVEC+? 

MOV R0,-<SP) 

MOV R1,-(SP> 

MuV R2,-(SP) 

MOV R3,-<SP) 

MOV R4,-(SP) 

MOV R5.~(SP) 



;SET FOR 

PRI0:7 

PUSH RO 

PUSH 

PUSH 

PUSH 

Pu.'iH 

PUSH 



FAST UP 



R1 
R? 
R3 

R4 
R5 



ON 
ON 
ON 
ON 
ON 
ON 



STACK 
STACK 
STACK 
STACK 
STACK 
STACK 



CVDRDB DRV11J 
CVDRDB. P11 



DIAG TST PRf2 
10-AUG-81 10:52 



MACY11 306C1063) 10-AUG-81 11:00 

POWER DOWN AND UP ROUTINES 



F 5 
PAGE 



(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(2) 
(1) 
(1) 
(1) 
11) 
(1) 
(1) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
<1) 
(1) 
1449 
1450 
1451 
(1) 
(2) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(3) 



015556 
015562 
015566 
015574 
015576 



015600 
015606 
015612 
015616 
015622 
015624 
015630 
015632 
015634 
015656 
015640 
015642 
015644 
0i5652 
015660 
015662 
015664 
015666 
015670 
015672 
015674 
015676 
015700 



015732 
01573<t 
015740 
015742 
015744 
015746 
C15752 



015754 
015A6 
015764 



017746 
010637 
012737 
000000 
000776 



012737 
013706 
005037 
005237 
001375 
012677 
012605 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104401 
015700 
012716 
003134 
000002 
000000 
000776 
000000 
00^015 



010046 
016600 
005740 
111000 
006300 
016000 
000200 



011646 

o::666 

000002 



164356 
015676 
015600 



000024 



015672 
015676 
015676 
015676 

164310 



000024 



015526 
000340 



000024 
000026 



042522 052123 



C00002 



015766 



MOV 

MOV 

MOV 

HALT 

BR 



aSWR,-(SP) 

SP,$SAVR6 

#$PWRUP,S*PWRVEC 

• -2 



2-34 



PUSH SSWR ON STACK 

SAVE SP 

;SET UP VECTOR 



SEQ 0057 



;;HANG UP 



********** *************************** Hi**** *************** ****** 



•POWER UP ROUTINE 
SPWRUP: 



1$: 



SPWRMG: 

SPWRAD: 

S1LLUP: 

SSAVR6: 
FWRMSG; 
.EVEN 
.S8TTL 



MOV 

MOV 

CLR 

INC 

BNE 

MOV 

MOV 

MOV 

MOV 

bOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

.WPRD 

MOV 

.WORD 

RTI 

HALT 

BR 



^SV12 



WLLUP,MPWRVEC 

SSAVR6,$P 

SSAVR6 

SSAVR6 

1$ 

<sp)+,aswR 

{SP)+, R5 
(SP)+, R4 
(SP)+, R3 
<SPH, R2 
(SP)*, R1 
(S. n )*,RO 

*:rwRDN,&:?wRVEC 

#340,3#PWiiVEC+2 , 

PWRMSG 

<PC)+,<SP) 

START1 



;SET FOR FAST DOWN 

GET SP 

WA- ; LOOP FOR THt TTY 

WA.iT FOR THE INC 

-IF W0R1 

FOP STACK INTO 3SWR 

POP STACK INTO R5 

POP STACK INTO R4 

POP STACK INTO R3 

POP STACK INTO R2 

POP STACK INTO R1 

POP STACK INTO RO 

;SET UP THE POWER DOWN VECTOR 

PRI0.7 

REPORT THE POWER FAILURE 

POWER FAIL MESSAGE POINTER 

RESTART AT START1 

RESTART ADDRESS 



THE POWER UP SEQUENCE WAf STARTED 
BEFORE THE POWER DOWN WAS COMPLETE 
PUT THE SP HERE 
<15><12>/RESTARTED FROM PU? FAIL/ 






TRAP DECODER 



**************************************************************** 
'*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
*AND USE IT TO INDEX THROUGH THE TRAP TABLE fOl THE STARTING ADDRESS 
*0r THE DESIRED ROUTINE. THEN USjNG THE ADDRESS OBTAINED IT WILL 
*G0 TO THAT ROUTINE. 



$TRAPj MOV RO,-(SP> 

MOV 2<SP),R0 

TST -(RO) 

MOVB (RO),RO 

ASL RC 

MOV $TRPAD(RO),RO 

RTS RO 



SAVE KO 

GET TRAP ADDRESS 

BACKUP feY 2 

GET RIGHT BYTE OF TRAP 

POSITION FOR INDEXING 

INDEX TO TABLE 

GO TO ROUTINE 



;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 



000004 0000U2 



$TRAP2: MOV 
MCV 
RTI 



(SP),-(SP> 

4<SP;,2(SP) 



;MOVE THE PC DOWN 
;MOVE THE PSW DOWN 
.♦RESTORE THE PSW 



.S8TTL TRAP TA8LE 



CVDRDB DRV1U 
CVDRDB. P11 



(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(3) 
(1) 



DIAG TST PRT2 
10-AUG-81 10:52 



(3) 
(1) 
(3) 
(3) 
(3) 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
V65 
1466 
1467 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1481 
1482 
1483 
1484 
1485 
1486 
1487 
1488 
1489 



015766 
015770 
015772 
015774 
015776 
016000 



015754 

012660 
013506 
013462 
013522 
013710 



016002 015012 



016004 
016006 
016010 



016012 

016054 

016101 
016120 
016142 
016155 
016170 
016203 
016216 
016251 

016266 
016316 

016343 
0163/5 
016416 
016463 
016550 
016615 



016666 
016702 
016722 
016736 



014742 



o; 

I. 



A 



0<*1600 042126 
042200 053122 



122 
042522 
051111 

101 
046511 

111 
0461 1 1 

103 

046111 
047111 

115 

126 
051105 

105 
051105 

105 



002116 
002116 
002116 
002116 



043505 
020107 
020122 
051103 
020122 
051123 
042514 
04*510 

042514 

042524 

046125 
041505 
050122 
051122 
050122 
051122 



002432 
002432 
002432 
002432 



MACY11 30GO063) 10-AU6-81 11:00 
IRAP TABLE 



6 5 
PAGE 



2-35 



i>EQ 0058 



042122 

030461 

052040 
042522 
042522 
051040 
042522 
051040 
040507 
020120 

040507 
051122 

044524 
020124 
020103 
041520 
020103 
041520 



;*TH1S TABLE CONTAINS THE STARTING 
;*BY THE "TRAP" INSTRUCTION. 



ADDRESSES OF THE ROUTINES CALLED 



iTRPAD: 



ROUTINE 

.WORD 

$TYPE 

$TYPOC 

STVPOS 

$TYPON 

STYPDS 



STRAP2 

;;CALL^TYPE 

;;CALL=TYPOC 

;;CALL=TYPOS 

;;CALL=TYPON 

;;CALL=TYPDS 



TRAP+1 (104401) 
TRAP+2H04402) 
TRAP+3U04403) 
TRAP+4C 104404) 
TRAP+5<104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUM8ER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



SGTSWR ;;CALL=GTSWR TRAP+6( 104406) GET SOFT-SWR SETTING 



SCKSWR ;;CALL=CKSWR 
SRDCHR ;;CALL=RDCHR 
$RDLIN ;;CALL=R!)LIN 



TRAP+7O04407) 
TRAP+10O04410) 
TRAP+1 1(104411) 



TEST FOR CHANGE IN SOFT-SWR 
TTY TYPEJN CHARALTIR ROUTINE 
TTY TYPEIN STRING ROUTINE 



.SBTTL ASCII MESSAGES 

;;GPA TITLED: .ASCIZ <15><12>/CVDRDA DRV11J DIAG TFST PART 
TITLED: .ASCIZ <200>/CVDRDB DRV11J DIAG TEST PART 2/<200> 
,;GPA TLCA8L: .ASCIZ <15X12>/DRV1 U CABL^ REQ , D/<15><12> 
TLCABL: .ASCI7 <200>/DRVHJ CABLE REQ'D/<200> 



2/<15><l2> 
;;GPA 



;;GPA 



EMI: 

EM2: 

EM3: 

EM4: 

EM5: 

EM6: 

EM7: 

EM10: 

; ; gpa 

EMU: 

EM12: 

;;GPA 

Eftl3: 

EM14: 

DH1: 

DH2: 

DH3: 

DH4: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI7 

EM11: 
.ASCIZ 
.ASCIZ 

EMI 3: 
.ASCIZ 
.ASCIZ 
.ASCII 
.ASCIZ 
.ASCIZ 
♦ASCIZ 



/REG TIMEOUT ER/ 
•REG READ/WRITE ER 1 
/IRR REG ER/ 
ER/ 
ER/ 
ER/ 

VCC'iOR MEM ADDR ER/ 
ER/ 
LEGAL INTERRUPT RECEIVED/ 



/ACR REG 
/IMR REG 
/1SR REG 
/ILLEGAL 

/chip stat 
.asciz /: 



/ILLEGAL INTERRUPT REC'D/ 

/INTERRUPT TEST ERROR/ 

.ASCIZ /MULTIPLE INTERRUPTS RECEIVED/ 

/MULTIPLE INTERRUPTS REC'D/ 

/VECT ADDR MEM ER/ 

/ERRK TSTNUM BUSADR EXPCT RCVD/ 

/ERRPC TSTNUM BUSADR VAM ADDR 

/ERRPC TSTNUM BUSADR VAM ADDR/ 

/ERRPC TSTNUM TESTPC BUSADR VAM 



?A 



;;GPA 



EXPCT RCVD/ 
ADDR/ 



002122 DT1 

002122 DT2 

002122 DT3 

002120 DT4 



.EVEN 

SERRPC, TSTNUM, $8DADR,$GDDAT,$BDDAT,0 

SERRPC, TSTNUM, *BDADR,VECVAL ,VErLOC,$GDDAT,$8DDAT,0 

SERHPC, TSTNUM, $BDADR,VECVAL,V:lLOC,0 

SERRPC, TSTNUM, $GDADR,SBDADR,VECVAL,VECLOC,0 



*************************************************************** 



FOR SYSMAC LOCATIONS 0-20? 

DRV11J VECTORING TO 



^DBUF' IS THE STORAGE AREA 

PRESERVED IN ORDER TO TEST 

VECTOR SPACE 0-200. 
•a************************************************************** 



CVDRDB 0RV11J D1A6 TST PRT2 
CVDRDB. P11 10-AU6-81 10:52 



149G 
1491 
1492 
1493 
1494 
1495 
1496 
1497 



016754 000102 



MACY11 30GC1063) 10-AUG-81 11:00 
ASCII MESSAGES 

DBUF: .BLKU 66. 



H 5 
PAGE 



2-36 



SEQ 0059 



;1ST ADRS OF DATA STORAGE AREA 



017160 
017360 



000100 



***************************** * ********************************** 

VECTOR BUFFER USED FOR VECTOR UNIQUENESS TEST 

FOR 64 INTERRUPT VECTORS. 

**************** ************************************* *********** 

VSUF: .6LKW 64. 
ENDBUF: 



CVDROB DRV11J D1AG TST PRT2 
CVDRDB.P11 1G-AUG-81 10:52 

1499 

1500 

1501 

1502 

1503 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 

1513 

1514 

1515 017360 005227 \77777 

1516 017364 0C1002 

1517 017366 004737 000400 

1518 017372 005727 

1519 017374 000000 

1520 017376 000207 
1521 

1522 017400 
1S?3 000400 

1524 000400 005037 017374 

1525 000404 01.5746 000004 

1526 000410 012737 000504 

1527 000416 012700 160010 

1528 000422 005720 

1529 000424 C00240 

1530 000426 020027 174000 

1531 000432 103773 

1532 000434 010037 017374 

1533 000440 012700 000040 

1534 000444 040037 000006 

1535 000450 040037 000016 

1536 000454 040037 000022 

1 537 000460 040037 000032 

1538 000464 040037 000036 

1539 000470 012737 170000 

1540 000476 012637 000004 

1541 000502 000207 
1542 

1543 000504 01P716 000512 

1544 000510 000002 

1545 000512 012637 000004 

1546 000516 012700 000402 

1547 000522 013701 000376 

1548 000526 010602 

1549 000530 012704 000570 

1550 000534 014446 

1551 000>36 020427 000546 

1552 0005<2 101374 

1553 000544 010607 
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FALCON (KXT-11) UPGRADE ROUTINES. 

SBTTL FALCON (KXT-11) UPGRADE ROUTINES. 



;;GPA 



SEQ 0060 



000004 



;;GPA 



THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW DIAGNOSTJC(S) 
TO RUN ON A FALCON (KXT-11) 3ASED SYSTEM* 

TO DETERMINE WHETHER WE*RE A FALCON OR NOT, WE'LL 111?.. THi 1ST 3/4 OF 
THE I/O PAGE (28K TO 31K). FALCON HAS 2KW LOCAL RAM AT 28K(+4) lO 30K 
AND A MACRO-ODT AT 30K TO 51K. CONSEQUENTLY, ALL I/O DEVICES MUST 
BE PLACED BETWEEN 174000 AND 177776- ADDITIONALLY, WE'LL STRAP THE 
EMT AND TRAP SERVICE LEVEL TO PRI6, AND SOT THE HALT VECTOR SO THAT 
WE CAN STOP THE SUCKER ! ! 

TO MINIMIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE, THE 
BULK OF THIS CODE IS PLACED IN THE FLOATING VECTOR SPACE (400-776). 
IF THE CPU AT HAND IS A FALCON (KXT11), IT STAYS THEHE (NO HARM DONE). 
OTHERWISE, THE ARK* IS RESTORED TO ITS ORIGINAL "TRAP-CATCHER" STATE. 



FALCON: INC 
BNE 
CALL 

1$: TST 

KXTFLAG: 

RETURN 



KXTCHK: 



1$: 



000140 



2$: 
3$: 

4$. 



$SVPC= 

.= 400 

CLR 

MOV 

MOV 

MOV 

TST 

240 

CMP 

BLO 

MOV 

MOV 

BIC 

BIC 

BIC 

BIC 

BIC 

MOV 

MOV 

RETURN 

MOV 
RTI 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CMP 
BHI 
MOV 



#-1 
1$ 

KXTCHK 
(PO + 



ONCE-ONLY 



i i i 



KXTFLAG 
a*4,-(SP) 
02$,304 
0160010, RO 
(RO)^ 

R0,A1 74000 

1$ 

RO, KXTFLAG 

040, RO 

R0,3*6 

R0,?#16 

R0,a*22 

R0.W32 

R0.SJ36 

0170000, 30140 

(sp)+, a*4 



03$, (SP) 

?sp>*,a#4 

#402, RO 

80376, R1 

SP.R2 

06$ f R4 

-(R4).-(SP) 

R4,05$ 

4$ 

SP,PC 



; EXECUTE FALCON CHECK 
; TEST FALCON FLAG... 
;...NZ = FALCON... 
;...AND RETURN TO CALLER 



RESTORE FROM 374:376 Ai END 

ASSUME NOT FALCON. 

SAVE ERRO* VECTOR. 

SET A TRAj> CATCHER. 

FALCON RAM STARTS AT 28K+4. 



SIZE TO 31K. 

MUST BE FALCON, SET THE FLAG 

GET PRI1 BIV... 
...AND lOWER OUS-ERROR... 
• • »BP I » ■ • 
...IOT... 
. . *EMT. • . 
...AND TRAP SERVICE TO PRI6 

ENABLE 'BREAK" HALT. 

RESTORE ERROR VECTOR... 
...AND RFTURN, 

TRAP — NOT A FALCON... 
...CONTINUE. 

RESET ERROR VECTOR 

SET-UP TO RESTORE FLOATING... 
...VECTORS (400 - 776). 

SAVE STACK POINTER IN R2 

PUSH THE RESTORE CODE... 
...ONTO THE STACK. 

AND EXECUTE IT. 



;GPA 
;GPA 
;GPA 
;GPA 
;GPA 
;6PA 

GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 
GPA 

GPA 
GPA 
GPA 
GPA 
GPA 
GPA 

GPA 
GPA 
GPA 

GPA 



J 



CVDRDB DRV11J 
CVDRDB. P11 



D1AG TST PRT2 
10-AUG-81 10:52 
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;;GPA 



SEQ 0061 



1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1575 

1576 

,577 

1578 



000546 
000552 
0005^4 
000556 
000562 
000564 
000566 
000570 



0^,0060 

0*0110 

022020 
020027 
101771 
010206 
000207 



000104 

017400 

017400 
000001 



THIS CODE IS RELOCATED TO AND EXECUTED IN THE STACK AREA. 



177776 



000776 



$$; 



6$: 



MOV 

MOV 

CMP 

CMP 

8L0S 

MUV 

RETURN 



R0,-2(RO) 

R1.CRG) 

(R0)+.(RO)+ 

R0,*7?6 

55 

R2, SP 



RESTORE .+2... 
...HALT (OR 107). 



LOOP •TIL DONE 
THEN RESTORE SP... 
...AND RETURN TO CALLER 



;GPA 
;GPA 
;GPA 
;6PA 
;GPA 
;GPA 
;GPA 
;GPA 



IF FALCON. THIS AREA IS FREE FOR ANY PROGRAM UNIQUE 

CHANGES OR DATA STRUCTURES. 

If USED, YOU'D BETTER PROTECT IT !!! 



$FREE--: <1000-.>/2 
.=$SVPC 



FREE WORDS LEFT. 



LASTAD= 



.END 



;;gpa 

;;GPA 
;;GPA 



CVDRDB DRV11J DIAG TST 


HRT2 MACY11 306(1063) 
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CVDRDB.P11 10-AUG-81 


10:52 SYMBOL TABLE 


ABASE = 164160 


AVECf1= OOOOOO 




ACDW1 = 000000 


AVECT2= OOOOOO 




ACDW2 = 000000 


BDSAV 002464 




ACPUOP= 000000 


BGCHP3 012636 




ACRLOC 002450 


BITO = 000001 




ADDUO = 000000 


BITOO = 000001 




ADDW1 - 000000 


B1T01 * 000002 




ADDW10= 000000 


BIT02 = 000004 




ADDW11= 000000 


BIT03 = 000010 




ADDU12= 000000 


BIT04 ~ 000020 




ADDW13^ 000000 


BIT05 - 000040 




ADDU14= 000000 


BIT06 - 000100 




ADDW15= 000000 


B1T07 = 000200 




ADDW2 = 000000 


BIT08 = 000400 




ADDW3 = 000000 


BIT09 = 001000 




ADDW4 = 000000 


BJT1 =: 000002 




ADDW5 = 000000 


BIT10 = 002000 




ADDW6 = 000000 


BIT11 = 004000 




ADDW7 a 000000 


BJT12 = 010000 




ADDW8 « 000000 


BIT13 = 020000 




A0DW9 = 000000 


BIT14 = 040000 




ADEVCT= 000000 


BIT15 = 100000 




ADEVM = 000001 


BIT2 s 000004 




AENV = 000000 


BIT3 = 000010 




AENVM = 000000 


BIT4 = 000020 




AFATAL= 000000 


P-T5 = 000040 




AMADR1= 000000 


faJT6 = 000100 




AMADR2= 000000 


BIT7 = 000200 




AMADR3= 000000 


BJT8 = 000400 




AMADR4= OOOOOO 


BIT9 = 001000 




AMAMS1= OOOOOO 


RPTVEC- 000014 




AMAMS2= OOOOOO 


BYCNT 002470 




AMAMS3= OOOOOO 


BYNUM 002472 




AMAMS4- OOOOOO 


CAT200 012024 




AMSGAD= OOOOOO 


CHPISR= 000140 




AMSGLG= OOOOOO 


CIMR ~ 000040 




AMSGTY= OOOOOO 


CIRMR = 000020 




AMTYP1= OOOOOO 


CIRR = 0001' 00 




AMTYP2= OOOOOO 


CISR = 000160 




AMTYP3- OOOOOO 


CKSWR - 104407 




AMTYP4= OOOOOO 


CLRBF 011334 




APASS = OOOOOO 


CLRCSR 011014 




APRIOR=: OOOOOO 


CLRIRR 011074 




APTCSU= 000040 


CR = 000015 




APTENV= 000001 


CRLF = 000200 




APTSJZ= 000200 


CS1MR = 000050 




APTSPO= 000100 


CSIRMR= 000030 




ATTVEC 011614 


CSIRR = 000110 




/(P12Q0 012066 


CSISR = 000170 




ASWREG^ OOOOOO 


DBUF 016754 




ATESTN= OOOOOO 


DDISP = 177570 




AUNIT = OOOOOO 


DH1 016416 




AUSWR = OOOOOO 


DH2 016463 







K 5 




-AUG-81 


11:00 PAGE 4 




DH3 


016550 


INT13 


DH4 


016615 


INT14 


DIR = 


000400 


INT15 


DISPLA 


002142 


INT16 


DJSPRE 


000174 


INT17 


DMAP 


002434 


IN713 


DRCSA 


002412 


INT19 


DRCS8 


002416 


1NT2 


DRCSC 


002422 


INT20 


DRCSD 


002426 


INT21 


DRD8A 


002414 


1NT22 


DRDBB 


002420 


1NT23 


DRDBC 


002424 


INT24 


DRDBD 


0C2430 


INT25 


DSWR = 


177570 


INT26 


DT1 


016666 


INT27 


DT2 


016702 


INT28 


DT3 


016722 


INT29 


DT4 


016736 


INT3 


EDCHP3 


012656 


INT30 


EMTVEO 


000030 


INT31 


EM1 


016101 


INT32 


EM10 


016251 


INT33 


EM11 


016266 


INT34 


EM12 


016316 


JNT35 


EM13 


016343 


JNT36 


EMU 


016375 


JNT37 


EM2 


016120 


INT38 


EM3 


016142 


INT39 


EM4 


016155 


INT4 


EM5 


016170 


INT40 


EM6 


016203 


JNT41 


EM7 


016216 


1NT42 


ENDBUF 


017360 


JNT43 


FNDTRP 


011636 


INT44 


i_ND200 


012106 


INT45 


ERRVEC= 


000004 


INT46 


FALCON 


017360 


INT47 


FRM8UF 


011374 


INT48 


GRPCNT 


002462 


INT49 


GTSWR = 


104406 


INT5 


HT = 


000011 


INT50 


IE = 


001000 


INT51 


1MRL0C 


002442 


INT52 


JNTBY4 


011700 


INT53 


INTFLG 


002436 


INT54 


JNTSR1 


011644 


JNT55 


INTSR3 


012124 


JNT56 


INTO 


012236 


INT57 


INT1 


012242 


INT58 


JNT10 


012306 


JN159 


IN) 11 


012312 


INT6 


INT12 


012316 


1NT60 



SEQ 0062 



012322 
012326 
012332 
012336 
012342 
01,:346 
012352 
012246 
012356 
012362 
012366 
012372 
012376 
012402 
012406 
012412 
012416 
012422 
012252 
012426 
012432 
012436 
012442 
012446 
012452 
012456 
012462 
012466 
012472 
012256 
012476 
012502 
012506 
012512 
012516 
012522 
012526 
012532 
012536 
012542 
012262 
012546 
012552 
012556 
012562 
012566 
012572 
012576 
012602 
012606 
012612 
01226^ 
012616 



INT61 

INT62 

JNT63 

INT7 

INT8 

INT9 

I0TVEC= 

IRRLOC 

ISRLOC 

KXTCHK 

KXTFLA 

LASTAD= 

LF 

LMD04 ^ 

LMD57 = 

LVLCNT 

LVLSAV 

MACR = 

Mi MR = 

MJRR = 

MISR = 

NEXPAS 

NEXPA1 

NEXPA2 

NXOEV 

NXDEV1 

PACR = 

PJMR = 

PIRQ = 

PJRQVE= 

PRO = 

PR1 

PR2 = 

PR3 

PR4 = 

PR5 = 

PR6 = 

PR7 = 

PS 

PSW = 

PVMA = 

PURMSG 

PURVEC= 

RDCHR - 

ROLIN 

RDY 

RESTRP 

RESVEC 

RES200 

R6 

R7 

SETVEC 

S1MR 



0126Z2 

012626 

012632 

0^2272 

012276 

012302 

000^20 

002446 

002444 

000400 

017374 

017400 

000012 

000200 

000240 

002466 

002474 

' 000254 

= 000244 

= 000250 

■ 000240 

003200 

003204 

003250 

010632 

010636 

= 000300 

= 000260 

= M7772 

= 000240 

= OOOOOO 

= 000040 

= 000100 

= 000140 

= 000200 

= 000240 

= 000300 

= 000340 

= 177776 

= 177776 

= 000340 

0157G0 

= 000024 

- 104410 
= 104411 

- 100000 
011432 

= 000010 
011762 

=X000006 

=X000007 
012210 

= 000060 



r 
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CVDRDB. P11 10-AUG-81 


10:52 


SYM80L 


TABLE 












SEU 0063 


SIRR = 


000120 




TOBUF 


011354 


SCPUOP 


002216 


SLPADR 


002106 


SSTUP -' 


\77717 




SSIMR = 


000070 




TPVEC = 


000064 


SCRLF 


002165 


SLPERR 


002110 


SSV'.AD 


014670 




SSIRR = 


000130 




TRAPVE= 


000034 


SDBLK 


014124 


SMADR1 


002222 


SSVPC - 


017400 




STACK = 


001100 




TRPALL 


011752 


$DEVCT 


002200 


SMADR2 


002226 


$SWR ~ 


165400 




START 


002476 




TRPCAT 


011524 


SDEVM 


002246 


SMADR3 


002232 


SSWREG 


002212 




START1 


0031 34 




TRPOUT 


011734 


SDOAGN 


010770 


SMADR4 


002236 


SSWRMK- 


000000 




ST1CLMT= 


177774 




TRP200 


012170 


SDTBl 


014114 


SMAIL 


002170 


STESTN 


002174 




STRVEC 


011300 




TRTVEC= 


000014 


SENDAD 


0107*0 


SMAMS1 


002220 


STIMES 


002160 




SWR 


002K0 




TSTNUM 


002432 


SENDCT 


010726 


SKAMS2 


002224 


$TKB 


002146 




SWRCK 


014310 




TST1 


003254 


SENDMG 


010777 


SMAKS3 


00??30 


$TKS 


002144 




SWREG 


000176 




TST2 


004122 


SENULL 


010774 


$MA,MS4 


002234 


STN 


000007 




SURSAV 


002460 




TST3 


004622 


$ENV 


002210 


SMBADR 


002002 


t;pB 


002152 




SWO = 


000001 




TST4 


005536 


SENVM 


002211 


SMFLG 


013456 


STPFLG 


002157 




SWOO = 


00000 i 




T5T5 


006530 


$EOP 


010672 


SMNEW 


015515 


SIPS 


002150 




SW01 = 


000002 




TST6 


0074/6 


$EOPCT 


010720 


SMS GAD 


002204 


STRAP 


015732 




SWO? = 


000004 




TYPDS = 


104405 


SERFLG 


002103 


SMSGLG 


002206 


STRAP2 


015754 




SW03 = 


000010 




TYPE = 


10440i 


SERMAX 


002115 


SMSGTY 


002170 


STRP = 


000012 




SU04 = 


000020 




TYPOC = 


104402 


SERROR 


014134 


SMSWR 


015504 


STRPAD 


015766 




SW05 = 


000040 




TYPON = 


104404 


SERRPC 


002116 


SMTYP1 


002221 


STSTM 


002004 




SW06 - 


000100 




TYPOS = 


104403 


SERRT8 


002252 


SMTYP2 


002225 


STSTNM 


002102 




SW07 = 


000200 




VBUF 


017160 


SERRTY 


014326 


SM1YP3 


002231 


STTYIN 


015462 




SW08 - 


000400 




VECF1L 


011132 


SERTTL 


002112 


SMTYP4 


002235 


$TYPi3 


013710 




SW09 = 


001000 




VECLOC 


002452 


$ESCAP 


002162 


SMXCNT 


014740 


STVPE 


012660 




SW1 = 


000002 




VECPAT 


002454 


SETABL 


002210 


SNULL 


002154 


STYPEt 


013072 




SW10 = 


002000 




VECVAL 


002456 


SETEND 


002252 


$NWTST= 


CC0001 


STYPEX 


013212 




SW11 = 


004000 




XXDP 


002440 


SFATAL 


002172 


SOCNT 


013704 


STYPOC 


013506 




SW12 = 


010000 




SAPTHD 


002000 


$FFLG 


013460 


SGMODE 


013706 


STYPON 


013522 




SW13 = 


020000 




$ATYC 


013240 


SFJLLC 


002156 


SCNER 


014724 


STYPOS 


013462 




sun = 


040000 




$ATY1 


013214 


SF ILLS 


002155 


SPASS 


002176 


SUNN 


002202 




SW15 = 


100000 




SATY3 


013222 


MREE - 


000104 


SPASTM 


002006 


SUNITM 


002010 




SW2 = 


000004 




$ATY4 


013232 


SGDADR 


002120 


SPWRAO 


015666 


SUSWR 


002214 




SW3 


000010 




SAUT08 


002134 


*GDDAT 


002124 


SPURDM 


015526 


SVECT1 


002240 




SWA = 


000020 




SBASE 


002244 


3GET42 


010750 


tPWRMG 


015662 


SVECT2 


0022-2 




SW5 


000040 




SBDADR 


002122 


SG7SWR 


015012 


SPWRUP 


015600 


SXOFF = 


OOOOi'J 




SW6 - 


000100 




SBDDAT 


002126 


SHD = 


000003 


SQUES 


002164 


SXUN - 


000021 




SW7 = 


000200 




KDW1 


002250 


SHJBTS 


002000 


SRDCHR 


015224 


SXTSTR 


0144/4 




SW8 = 


000400 




ttCHARC 


013210 


SJCNT 


002104 


SRDLJN 


015354 


S$GET4= 


000000 




SU9 - 


001000 




JECKSWR 


014742 


SILLUP 


015^72 


SRDSZ = 


000010 


SOFILL 


013705 




TBJTVE- 


000014 




iJCMTAG 


002100 


SJN1AG 


002135 


SRTNAD 


010772 


■ "~" 


017400 




TITLED 


016012 




SCM3 = 


000000 


5ITFM6 


002114 


SSAVR6 


015676 


.$X = 


002000 




TKVEC = 


000060 




j;cmlg 


015477 


$LF 


002166 


SSCOPE 


014462 








TLCABL 


016054 




3JCNTLU 


015472 


$LFLG 


013457 


$SETUP= 


000117 








. ABS. 


017400 


000 


CON 


RW ASS 


LCL I 















ERRORS DETECTED: 

CVDRDB, CVDRl 8= CVDRDB 
RUN-TIME; 19 7 ,4 SECONDS 
RUN-TIME RATIO: 76/27^?.$ 
CORE USED: 25K (49 PAGES) 



n 

C 

E 


1 
1 
I 

1 


ORMATTED PAPERTAPES OR 
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